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FOREWORD 


We've written this book for every Commodore 128 owner who wants to 
make better use of his or her machine. Whether you want to create your 
own character set, use the higher computing speed (C-128 FAST mode) in 
_ your C-64 programs, or use the ROM routines, you'll find this book full of 
practical information. Some of the topics covered in this book include: 
Banking and memory configurations; VIC-II chip registers; windows; 
multitasking; command extensions; important memory locations; and many, 
many sample programs. | 


We've tested and debugged all of the BASIC programs, as well as the 
BASIC loaders that match the machine language listings. An optional 
companion disk is available containing all of the programs in this book. See 
the ordering instructions at the end of this book for details. We used a 
modified version of the LISTING CONVERTER program (found in chapter 
3) to transfer the program listings from the C-128 to the computer this book 
was edited with. There should be no errors as far as the listings themselves 
are concemed. The text proper will describe the operation of the programs. 
Before we go into the depths of the C-128, we'll just remind you of 
Murphy's Laws on Programming*: | 
1) Once a running version of a program is ready, it's already 
obsolete. | 
2) All other programs cost more and take longer to run. 
3) Ifa program is useful, odds are it can be replaced. 
4) Ifa program is useless, it will be documented. 
5) Every completed program takes up all the memory, whether 
it was written that way or not. 


6) The value of a program is proportionate to the time taken in 
mass-producing it. 
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7) Program development takes so long that by the time you get 
it running, you'll have to revise it to keep up with the times. 


Have fun. 


The Authors — 
Rinteln, Germany, August 1985 


* Source: A. Bloch, "Why What Can Go Wrong, WILL", Goldman, 1977 
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GRAPHICS ON THE COMMODORE 128 


Graphics are an intriguing subject, particularly when we're talking about 
high-resolution graphics (as opposed to the graphic symbols built into the 
C-128 character set). For those who were stopped from writing 
professional software for the Commodore 64 because of its 40-column 
screen, this new machine offers another possibility. If you look on the back 
of the computer, you'll see two jacks marked RF and VIDEO; these allow 
you to connect the C-128 to a television set (RF) and a composite monitor 
(such as the Commodore 1701). These two jacks give you 40 columns, as 
with the C-64, but the 128 has one more jack -- an interface marked RGB! 
An RGB monitor (Red Green Blue) is much more expensive when 
compared to, say, the 1701, but with the RGB monitor you get better 
picture quality, higher resolution and, most importantly, an 80-column 
screen. 


The next few pages discuss exactly what can be done with the graphics 
screen. Numerous sample programs illustrate these discussions. 
Remember that one major difference exists between the C-64 and C-128 
graphics: the C-128 allows two completely independent screens, which 
we'll discuss next. 
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1.1 SWITCHING: 40/830 COLUMNS 


Before going into any detail, we should take a look at switching between the 
40-column and 80-column screens. The setting of the 40/80 DISPLAY key 
on the upper section of the keyboard determines the screen mode when 
powered on. After power-up, the switch is inoperative unless the reset 
button is pressed. To switch modes within a program use the following 
commands: 


ESC+X (switches direct mode on) 
PRINT CHR$(27)+"X" (switches mode outside program) 
SYS 49194 (works like the switching from BASIC, 


but also works in machine language) 


1.22 THE 40-CHARACTER SCREEN 


The 40 column screen is controlled by the VIC 8564 chip. The VIC 8564 is 
similar to the VIC 6564 chip in the 64, but it contains an additional two 
registers (more on this later). When using the 40 column mode, the screen 
can be displayed on either a television or a composite monitor, but NOT on 
an RGB monitor. 


Video RAM and color memory use the same memory ranges as those in the 
64: 
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SCREEN RAM $0400 - SO7FF (decimal 1024 - 2023) 
COLOR RAM S$D800 - SDBFF (decimal 55296-56295) 


Both ranges are in normal address space, and can be manipulated using 
PEEK and POKE: 
10 FOR A=0 TO 255 
20 POKE 1024+A,A 
30 NEXT A : 
40 : 
50 FOR A=0 TO 255 
60 X=INT(RND (1) *16) :REM RANDOM NUMBER (COLOR) 


70 POKE 55296+A,X 
80 NEXT A 


The statement: 
POKE 1024+column+ (40*line) ,QO-255 
puts a character onto a forty-column screen; while the statement: 
POKE 55296+column+ (40*line) ,Q-15 


puts a color into the matching memory location. In either statement, 
column can range in value from 0 to 39 and line can range from 0 to 24. 


As in the C-64, screen memory can be moved in 1K steps, but color 
memory is not relocatable. 
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1.3 THE 40-COLUMN CHARACTER GENERATOR 


The actual design of a character is stored in a ROM known as the character 
generator. The character generator is found in memory at $D000 to $DFFF. 
You can't read the character generator by normal means, since it lies in 
ROM, and you can't write to it at all. 


The internal divisions of the character generator look like this: 


CHARACTER SET 1 (UPPER CASE and BLOCK GRAPHICS) 


$D000 - $D1FF 
$D200 - $D3FF 
$D400 - $D5FF 
$D600 - $D7FF 


$D800 - $D9FF 
$DA00 - $DBFF 
$DCO00 - $DDFF 
$DE00 - $DFFF 


Upper case letters 

Block characters 

Reverse upper case letters 
Reverse block graphics 


Lower case letters 
Upper case letters 
Lower case reversed 
Upper case reversed 


The following short program allows you to read the character generator: 
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90 PRINT "{CLR HOME} PRINT THE CHARACTER 
GENERATOR ROM" 


91 PRINT : PRINT 

100 REM OUTPUT CHAR GENERATOR 

120 : 

130 FOR X = O TO 255: REM 256 CHARACTERS 

140 FOR Z = 0 TO 7: REM 8 BYTES EACH 

150 AD = 53248 +X * 8+ 2 | 

180 BANK 14: C = PEEK (AD): BANK 15 

Zi0. = 

220 FOR Y = 7 TO O STEP - 1: REM 8 PIXELS/BYTE 

230 IFC> =2 %*% Y THENC=C -2%°% Y: | 
PRINT "*";; ELSE PRINT "."; 

240 NEXT Y 

250: 

260 PRINT 

270 NEXT Z 

280 PRINT 

290 NEXT X 

300 END 


The pattern of each character is stored in eight bytes; each byte is divided 
into eight bits. So, one character has a matrix of 64 bits. Each of these bits 
can be turned on or off. The character generator is taken directly from ROM 
in 40-column mode. Therefore to make any changes to a character's 
pattern, we have to copy the character generator into RAM. The ROM 
character generator cannot be moved or changed, but the copied generator 
can be moved to a different memory location. 


We'll begin from a cold start in BASIC. Type the following in direct mode: 
POKE 56,48:POKE 58*256,0:NEW 


Any program currently in memory will be lost. To copy the character set 
from the character generator to RAM, use the following: 
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SS aa ST SASS Sai SSS SSS SS Sr SS USES 


10 REM COPY CHARGEN $D000 TO $2000 

20 BANK 14 : REM READ OUT CHARGEN 

30 FOR X=0 TO 4095 | 

40 POKE DEC ("2000") +X, PEEK (DEC ("D000") +X) 
50 NEXT X 

60 BANK 15 : REM NORMAL CONFIG. 


Here's where we see how slow BASIC is; the entire procedure takes more 
than a minute! The program moves the character generator from ROM to 
the RAM area near the start of BASIC. 


Now the character generator is in RAM. We know this, but the computer 
doesn't; you'll have to tell the computer to use the copied character set (64 
fans will note that the address 53272 is the same). The memory contents of 
this location determines the starting addresses of the character generator and 
screen RAM. We'll skip the latter for the moment, and have a look at the 
character generator itself. Here's an overview of possible starting 
combinations: 





SCREEN MEMORY 


CHARACTER SET 


OOO0Oxxxx @) XxXxx000x 0 
OOO1Lxxxx 1024 Xxxx001x 2048 
OO10xxxx 2048 XXxx010x 4096 
' 0O11xxxx 3072 XxXxxx011x 6144 
O100xxxx 4096 XXXx100x 8192 
O101xxxx 5120 XXXX101x 10240 
O110xxxx 6144 XXXX110x 12288 
O1ll1lxxxx 7168 XXxXXl11x 14336 
1000xxxx 8192 

1O001xxxx 9216 

1010xxxx 10240 

LO1l1xxxx 11264 

1100xxxx 12288 

1101lxxxx 13312 

1110xxxx 14336 

lllixxxx 15360 
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The character set can be moved in 2K increments. This has two 
disadvantages: First, the character set can only be moved within the first 
- 16K of memory. Second, the normal ROM character set is located at 6144, 
but that's normal BASIC RAM. How can that be? 


The VIC chip can only address 16K, which in this case is the first 16K of 
memory. The address 6144 represents the offset within this 16K block. 
We can determine which 16K block is involved by changing the contents of 
address 56576: 


16K range 
$0000 - S$3FFF 0 16383 POKE 56576,199 
$4000 - S7FFF 16384 32767 POKE 56576,198 


$8000 - SBFFF 32768 - 49151 POKE 56576,197 
- 65535 POKE 56576,196 


When the last 16K block ($CO00-$FFFF) is used (default), the character 
generator resides at 49152 + 4096 = 53248 ($D000). If you check the first 
table, you'll see that the normal character set (upper case/graphics) begins at 
¢$D000. The first two bits in 56576 represent address bits 14 and 15 of the 
character generator. 


Keep in mind that the screen memory is also moved in 16K steps. The high 
byte of screen RAM has to be moved: 


POKE 2619, 4+X*64 


X=0-3 (matches 16 banks 0-3) 
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To let the computer know that the new character set is at $2000, you'll have 
to change the contents of 53272; here we find a substantial difference 
between the C-128 and the C-64. Where the C-64 required only a simple 
POKE, here we don't have that luxury -- what you POKE will be reset by 
the C-128 operating system. So, to get around this, we'll have to deal with 
a byte in zero-page memory: 


SQA2C (2604) VIC TEXT SCREEN/CHAR BASE POINTER 
This looks more complicated than it actually is. POKEing into 53272 on 
the C-64 is equivalent to POKEing into 2604 on the C-128. The contents of 
this address automatically writes to 53272. 

Switching to our new character set can be accomplished with this statement: 
POKE 2604, PEEK(2604) AND NOT 2+4+8 OR 8 

In other words, bits 1 to 3 (controlling the position of the character 

generator) are cleared, and bit 3 is set. So, address 53272 gives us these 

contents: xxxx100x 

This statement sets the new character generator at 8192. Bear in mind that 


all we've done is move the character set around; the procedure isn't 
finished. Notice how odd the characters look on the screen. 
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1.3.1 CHANGING THE CHARACTER SET 


\ 


Now, type in the following BASIC program: 


10 REM @ SIGN TO SQUARE 

20 FOR X = O TO 7: REM 8 BYTES PER CHARACTER 
30 READ CO 

40 POKE 8192+0*8+xX,CO 

50 NEXT X 

60 DATA 255,129,129,129,129,129,129,255 


The @ sign changes before our eyes to a square (see "Defining your Own 
Characters" in the 80-column section for more information). 


1.3.2 40-COLUMN CHARACTER EDITOR 


Fortunately, you don't need to design your new 40-column character set by 
hand: With a few small changes, you can use the 80-column character 
editor (Chapter 1.16.1). First move the start of BASIC to protect your 
character set from overwriting your BASIC program. In direct mode, enter: 


POKE 46,58:POKE14848,0;NEW 


Then change the following lines of the 80-column character editor: 


4000 BANK 14 

4010 FOR X = 0 TO 4096 

4020 POKE DEC ("2000") +X, PEEK (DEC ("D000") =X) 
4030 NEXT X 

4050 POKE 2619,4 
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4060 POKE 5676,199 

4070 POKE 2604,PEEK(2604) AND NOR 2+4+8 OR 8 
4080 BANK 15 

5005 - 5045 : DELETE 

5065 AD=8192+8*A+Y 

5070 POKE AD,W 

5075 : DELETE 


Edit the characters, then exit the program and RUN 40000 to enable your 
custom character set. 

1.4 MOVING SCREEN MEMORY 

Screen memory normally resides in $0400 - $07FF (1024 - 2023), but it 
can be relocated. Remember these two addresses: 


2604 VIC TEXT SCREEN/CHAR BASE POINTER 
2619 VIC TEXT SCREEN BASE 


We can move screen memory anywhere in memory, in 1K steps. See 


Chapter 1.3 for the table showing possible addresses. Meanwhile, let's get 
started on uses for relocating screen memory. _ 
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1.4.1 WORKING WITH SEVERAL SCREENS 


As the title suggests, you have the option of using several screens at once 
(called "page-flipping") in 40-column mode. We'll illustrate this using three 
screens. Since these three screens will use part of normal BASIC memory, 
you must move the start of BASIC so that your programs don't overwrite 
the new screen memory. In direct mode, enter the following statements: 


POKE 46,40: POKE10240,0: NEW 


The following BASIC program POKEs a machine language program into 
memory which can be used to "page flip" between three screens by using 
the <F1l>, <F3>, and <F5> keys. 


2000 FOR X = 4864 TO 4950 

2010 READ A : CS=CS+A: POKE X,A 

2020 NEXT X 

2030 IF CS <> 7857 THEN PRINT CHRS$(7); LIST 

2040 DATA 120,169,24,141,20,3,169,19,141,21,3, 
169,0,141,0,16 

2050 DATA 141,2,16,141,4,16, 88, 96,72,138,72, 
166,213,224,4,208 

2060 DATA 13,169,20,141,44,10,169,4,141,59, 
10,76,80,19,224,5 

2070 DATA 208,13,169,132,141,44,10,169, 32, 
141,59,10,76,80,19,224 — 

2080 DATA 6,208,13,169,148,141,44,10,169, 
36,141,59,10, 76,80,19 

2090 DATA 104,170,104,76,101,250,255 


Here's a listing of the machine language program that is POKEd into 
memory by the above BASIC program: 
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1300 
1301 
1303 
1306 
1308 
130B 
130D 
1310 
1313 
1316 
1317 


NEW IRQ: 


1318 
1319 
131A 
131B 
131D 
131F 
1321 
1323 
1326 
1328 
132B 
132E 
1330 
1332 
1334 
1337 
1339 
133C 
133F 
1341 
1343 
1345 
1348 
134A 
134D 
1350 
1351 
1352 
1353 


48 
SA 
48 


65 


OA 


OA 
1A 


OA 


OA 
1A 


OA 


OA 
1A 


FA 


#518 
$0314 
#$13 
$0315 
#$00 
$1000 
$1002 
$1004 


SD5 
#$04 
$132E 


#814 


SOA2C 
#$04 
SOA3B 
$1350 
#$05 
$133F 
#$84 
SOA2C 
#$20 


$1350 
#306 
$1350 
#$94 


#$24 


SOA3B 
$1350 


SFA65 


:end 
3F5? 
:no, 
:new 
#SOA2C: 
:new 
sand 
:end 
:Put 
:X-reg and 
saccumulator values, 
sand return normal IRQ 


sinterrupt off 

:low-byte of new IRQ 
:store low-byte 
shigh-byte of new IRQ 
:store it 

:Length of function keys 
:F1l on 

:F3 on 

:F5 on 

sinterrupt again permitted 
:back to BASIC 


sput accu 

sand X-reg 

:on stack 

:load X w/ pressed key 
:F1? 
:no, 
snew 
sand 
;new 
sand 
:end 
<F3? 
:no, 
:new 
sand 
new 
#SOA3B: 


then read next 
Starting address 
set 

screen at $0400 
set it 

Fl 


then read next 
starting address 
set 

screen at $2000 
set 

F3 


and 


then ready 
starting address 
set 

screen at $2400 
set 

F5 

back old 


and 
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The principle is the same for 80-column mode (see Chapter 1.17). 
After RUNning the program, you have your choice of three independent 
screen pages, called by F1, F3 and F5. These screens will initially be full of 
strange characters -- clear the individual screens with: 
PRINT CHRS$ (147) (or with PRINT'{CLR/HOME}") 
You can switch screens in program mode with a POKE to address 213: 
POKE 213,4 (normal screen) 
POKE 213,5 (2nd screen at $2000) 


POKE 213,6 (3rd screen at $2400) 


Here is the memory configuration used by the routine: 


SCR l(normal)  SCR2 SCR 3 

Start of screen memory $0400  & $2000 ts«C $2400 
Endofscreenmemory $07FF SEs $23FF iS $27FF 
ColorRAM--statt $p300ti(<t«é«CS $D800ts« $D800 
ColorRAM--end $DBFF tsi $DBFF $DBFF 
BASICstat =| $2300 $2800 $2800 
Press. sté<‘“‘;SOCOCW&@r#@L ).C~té‘(SW BSDUU!UOUR&SU 
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1.5 THE 80-COLUMN SCREEN 


The C-128 isn't just for games. To make it a more practical machine, it has 
80-column capability, thanks to a special graphic processor called the VDC 
8563 (Video Display Controller). We should mention that this chip displays 
80 columns only on a RGB monitor. We'll talk about that later. 


1.6. SCREEN AND COLOR RAM 


Now we enter completely new territory. While screen and color RAM for 
40-column mode is in normal RAM, and can be controlled by PEEKing and 
POKEing, 80-column video RAM is outside of normal RAM, and can't be 
changed using normal PEEKs and POKEs! Don't panic yet -- the next 
couple of pages show how we can gain control of 80-column video 
controller. On the next page is a list of registers for the 80-column 
controller; we'll cover each register in detail. 
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1.7 REGISTERS OF THE 80-COLUMN CONTROLLER 


00 


READ: Status, LP,VBlank,-,-,-,;-,;- 

WRITE: Bits 0-5 of desired register 
Characters per line 

Shift screen window (horizontal/character-wise) 
Shift screen window (horizontal/pixel-wise) 
Vertical synchronization 

Vertical total 

Lines per screen page 

Shift screen window (vertical/line-wise) 
Interface mode 

Matrix register -- vertical 

Cursor mode -- begin scan 

End scan 

screen memory start address -- HI 

LO of 12 

Cursor position -- HI 

LO of 14 

Light pen vertical 

Light pen horizontal 

Channel address HI 


LO of 18 
Addribute-RAM start address -- HI 
LO of 20 
Matrix register/display horizontal 


Matrix display vertical 

Smooth-scroll vertical 

Smooth-scroll horizontal 

Color 

Address shifting 

Character generator basic address -- HI 
Underline-Cursor-Scan-Line 

Repeat register 

Channel, byte read/write in video RAM 


Block start address -- HI 
LO of 32 
Start of screen representation 


End of screen representation 
refresh-rate 


17 


Abacus Software 3 Tricks and Tips for the C-128 





1.8 THE VIDEO DISPLAY CONTROLLER (VDC) 


We'll now cover the functions of the individual registers using examples. 


These registers are indirectly addressed. That means that only registers 0 
and 1 can be accessed. If you want to see the contents of register 26, you'd 


type this in: 


A=DEC ("D600") 
POKE A,26:PRINT PEEK (A+1) 


The register number is written into register 0 ($D600); register 1 ($D601) 
acts as the channel for writing to or reading from the desired register: 


10 INPUT"REGISTER";R 
20 INPUT"VALUE";V 

30 POKE DEC("D600"),R 
40 POKE DEC("D601) ,V 


Access to the Video RAM 


As already mentioned, the VDC video has 16K of RAM outside of the 
normal address range. To access the VDC video RAM, use the following 
method: 


10 BA = DEC("D600") 

110 INPUT "ADDRESS OF THE VIDEO RAM";V 
120 INPUT "VALUE";W 

130 HO = INT(V/256): LO= V-(256*HI) 
140 POKE BA, 18: POKE BA+1, HI 

150 POKE BA, 19: POKE BA+t1, LO 

160 POKE BA, 31: POKE BAtl, W 
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170 WAIT BA, 32 |. 
180 POKE BA, 30: POKE BA+l, 1 


Program explanation: 
100 — Store the base address of the VDC in BA 
110 Prompt for desired video RAM address (V) 
120 Prompt for value you want written into video RAM (W) 
130 Separate V into low and high bytes 
140 Put high byte desired address into register 18 
150 Put low byte into register 19 
160 ‘Byte value into register 31 
170 Wait command until we reach memory address BA 
180 Register 30 filled with 1 (character output) 


Here is the video RAM layout on power-up: 


$0000 - $07FF Screen refresh memory (SCR-RAM) 
(dec. 0-2047) 


$0800 - $OFFF Attribute RAM (e.g. color memory) 
(dec. 2048-4095) 


$1000 - $1FFF free 
(dec. 4096 - 8191) 


$2000 - $3FFF character generator 
(dec. 8192-16385) 
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Now we'll try to write to video RAM. Start the above BASIC program and 
input O as the desired address; then enter a value between 0 and 255. A 
character should appear in the upper left-hand corner of the 80-column 
screen -- the character displayed depends upon the value you enter. 


To tell you the truth, this method of accessing video RAM is pretty 
unreliable, but you can repeatedly write to this RAM (as long as it's within 
bounds!). On the other hand, this isn't a method for a serious programmer. 
We'll give you another method in the next section. 


1.9 PRACTICAL VIDEO RAM ACCESS 


What does the operating system do when a key is pressed while in 
80-column mode? It seems to work perfectly. Well, let's explore how the 
operating system treats characters in this mode. Of particular interest is a 
ROM routine which you can easily call yourself. Here it is: 


SYS 49155, CHARACTER, COLOR 


CHARACTER =char #(0-255) 
COLOR =char. color (0-16) 


Unlike the previous BASIC routine, this routine always works. Plus, this 


routine works for both the 40- and 80-column screens. This means that it's 
possible to program for both screens at once (or two separate monitors). 
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LLL a a a a SSS 


Once the novelty of the above routine wears off, you may wonder how to 
put these characters on different lines of the screen. The position of the 
character is read from memory locations 224 and 225 (current cursor 
position). If you want a character in a specific place, you'll have to play 
around a bit with these memory locations: 


10 AD = CLMN + PEEK(238)* LINE 
20 Sl = PEEK (224): S2 = PEEK(225) 
30 HI = (AD/256): LO = AD-(256*HT) 


40 POKE 244, LO: POKE 225, HI 
90 SYS 49155, CHARACTER, COLOR 
60 POKE 224, S1: POKE 225, S2 
70 END 


CLMN:0-79 (0-39) 
LINE :0-24 


238 Maximum length of screen 
224 Cursor position -- LOW 

225 Cursor position -- HIGH 
49155 Start address -- ROM routine 


1.10 POKE SIMULATION 


This machine language routine does away with all the compromises of the 
previous techniques; we call it a "modified POKE command". Basically, 
it's a pseudo-POKE for 80-column video RAM. 


1800 48 PHA :Get char from stack 
1801 8A TXA :low byte address 
1802 48 PHA :placed on stack 
1803 98 TYA shigh byte address 
1804 48 PHA sput on stack 


1805 AY 02 LDA #$02 
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1807 8D 28 OA STA SOA28 :set cursor flag 


180A A2 12 LDX #$12 :VDC register 18 

180C 68 PLA :get high byte back 
180D 20 1B 1C JSR $181B :set register 

1810 E8 INX :VDC register 19 

1811 68 PLA :get back low byte 
1812 20 1B 1C JSR $181B :set register 

1815 A2 1F LDX #S1F :VDC register 31 

1817 68 PLA sget back character 
1818 4C 1B 1C JMP $181B :set register -- ready 


181B 8E 00 D6 STX $D600 :register 0 

181E 2C 00 D6 BIT $D600 :bit 7 set? 

1821 10 FB BPL $1C8E :no -- then test again 
1823 8D 01 D6 STA $D601 :give value in D601 


For those of you who don't program in machine language, here is the 
BASIC loader. 


5 REM 1.10A 

10 FOR X = 6144 TO 6182 
20 READ A: CS = CS + A: POKE X,A 
30 NEXT X 
40 IF CS < > 3411 THEN PRINT CHRS (7);: LIST 
50 DATA 72,138,72,152,72,169,2,141,40,10,162,18 
60 DATA 104,32,27,24,232,104,32,27,24,162,31,104 
70 DATA 76,27,24,142,0,214,44,0,214,16,251,141 
80 DATA 1,214, 96 


Now you have an extended POKE command at your disposal, which uses . 
the following format: 


SYS DEC ("1800") ,CHR,LO,HI 
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SSS SSS sss sss lel ss SSScesssgssnstenaneesnnsss 


CHR  =character/byte-value (0-255) 


LO = low byte of desired address 
HI = high byte of desired address 
Try this: 


10 INPUT "ADDRESS"; AD 
20 HI=INT(AD/256) : LO=AD- (256*HI) 
30 SYS DEC ("1800") ,3,LO,HI 


Given an address of 0; immediately a "C" (3 = screen code C) appears at the 
HOME area of the 80-column screen. Restart the routine, and input a value 
of 2048 -- now the "C" is in cyan; you've written it to attribute RAM 


(2048-3047). 


One byte of attribute RAM is configured as follows: 


BIT 0 
BIT 1 
BIT 2 
BIT 3 
BIT 4 
BIT 5 
BIT 6 
BIT 7 


brightness 
blue 


underline 
reverse video 
2nd character set | 


The use of the first four bits is obvious: combining these bits results in the 


16, available colors. Setting bit 4 causes the corresponding character to 


blink rapidly. 
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Just for fun, put this new line into the program we just typed in: 
30 SYS DEC("1800") ,2°0+2%3+2%4,LO,HI 


Now when you input 2048 for AD, the first character on screen blinks pink 
(light red)! You can also put characters into reverse video or underscore 
them by setting bit 6 or bit 5 (respectively). Bit 7 lets you change character 
sets, just as <SHIFT/C=> does. On the 80-column screen it's possible to 
have BOTH character sets onscreen at the same time, unlike in 40-column 
mode. This means that you have 512 characters to work with! 


1.11 THE CHARACTER GENERATOR 


Having 512 characters at your finger tips may seem like a lot, but for special 
purposes (games, math characters, special alphabets, etc.), the in-house 
character set just isn't enough. So, you have to go in and design the 
missing characters on your own. This is somewhat easier to do in 
80-column mode, since the character generator is already in RAM, and can 
be changed from there without having to copy it from ROM or moving the 
start of BASIC. 
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1.12 READING THE CHARACTER GENERATOR 


Now we'll read out the character generator from video RAM: 


20 BA = 8192 

30 A= DEC ("D600"): B=At1 

40 FOR X=0T07 

50 AD = BA +X+8* W: IF AD > 16383 THEN END 
60 HI = INT (AD / 256): LO = AD - (256 * HI) 

70  POKE A,18: POKE B,HI 

80  POKE A,19: POKE B,LO 


90 POKE A,31: CH = PEEK (B) 

100 FOR Y = 7 TO 0 STEP - 1 

110 IF CH > = 2 %* Y THEN CH = CH - 2% Y: 
PRINT "*";: ELSE PRINT "."; 


120 NEXT Y 
130 PRINT 

140 NEXT X 
150 W= Wet iil 
160 GOTO 40 


Variables used: 
BA :Base of character generator 
A ‘Base of VDC 
AD Current address in character generator 


HI ‘High byte of AD 

LO ‘Low byte of AD 

CH -Read-out value of character line 
W -Counter 


RUNning the program causes all the characters to be displayed in an 
enlarged matrix on the screen. You'll note that eight spaces follow every 
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character. Also note that the 80-column character generator of the C-128 is 
quite different from those of the VIC-20, or even the C-64. 


You see, every character is made up of 16 bytes, as opposed to the eight 
bytes of the VIC or 64. Contrary to the way it sounds, there is no waste 
here; normal circumstances give eight bytes per character unused. These 
“empty bytes" serve a specific purpose -- the VDC 8563 can produce 
character matrices in either 8 X 8 or 16 X 8 format; see the figure below. 





ROM RAM of VDC 
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1.13 BIG SCRIPT WITH STRINGS 


Here is another useful program using the "Character Generator". There's 


nothing stopping us from making enlarged characters. Try this program. 


10 ZS = "*": GOSUB 60000: PRINT ZS: END 

60000 Z4= ASC (ZS): 285 = "":; IF Z AND 128 
THEN X = Z AND 127 OR 64: GOTO 60040 

60010 IF NOT Z AND 64 THEN X = Z: GOTO 60040 

60020 IF Z AND 32 THEN X = Z AND 95: GOTO 60040 

60030 X = Z AND 63 

60040 LS a US — 

60050 FOR W = 0 TO 7 

60060 LS = L$ + CHRS (157) 

60070 US = US + CHRS (145) 

60080 NEXT W 

60090 DS = CHRS (17) 

60100 REM CHARACTER GENERATOR SELECTION 

60110 A= DEC ("D600"): B=A+1 

60120 : 

60130 FOR Z = 0 TO 7: REM 8 BYTES 

60140 AD = 8192 + X * 16 + Z 

60150 HI = INT (AD / 256): LO = AD - (256 * HI) 

60160 : 

60170 POKE A,18: POKE B,HI 

60180 POKE A,19: POKE B,LO 

60190 POKE A,31: C = PEEK (B) 

60200 : 

60210 FOR Y = 7 TO 0 STEP - 1: REM 8 PIXEL 
LINES/CHARACTER 

60220 IF C> =2%* Y THENC=C-2%°% Y: ZES = 
ZES + "*":ELSE ZES = ZES + "{SPACE}" 

60230 NEXT Y 3 

60240 25 = Z2$ + ZES + L$ + DS: ZES = "" 

60250 NEXT Z 

60260 ZS = LEFTS (ZS, LEN (Z$) - 9) + US 

60270 RETURN 
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1.14 PRINTING BANNERS AT HOME 


Now that we have enlarged characters on the screen, we might as well print 
them to the printer. This program will let you print banners and posters of 
any length. You have a choice of sizes from 8 to 80 times larger than 
normal: 


10 SS = Wk. LS —- wi ie 
20 REM BANNER-PRINTER 


40 PRINT "{CLR HOME}{RVS ON} BANNER-PRINTER {RVS 
OFF }" 

50 PRINT "{CRSR DOWN}{CRSR DOWN}THIS PROGRAM 
DEMONSTRATES THE " 

60 PRINT "{CRSR DOWN}USE OF THE PRINTER FOR 
VERTICAL PRINTING" 

70 PRINT "{CRSR DOWN}{CRSR DOWN}TO PRINT A 


LETTER, " 

80 PRINT "{CRSR DOWN}TYPE IN SIZE AND THEN HIT 
"RETURN’' ."” 

85 PRINT : PRINT TAB( 7)"{CRSR DOWN}{CRSR 


DOWN}{CRSR DOWN}HIT ANY KEY TO CONTINUE" 
90 GET KEY A$ 
100 OPEN 4,4 
110 PRINT "{CLR HOME}{RVS ON} SIDEWAYS-PRINTER 
{RVS OFF}" 
120 PRINT "{CRSR DOWN}{CRSR DOWN} ENTER SIZE: 
| {CRSR DOWN}{CRSR DOWN}" 
130 INPUT "{CRSR DOWN}{CRSR DOWN}HEIGHT (1-10) 
* es HO 
140 INPUT "WIDTH (1-...)"sBR 
150 PRINT "AT COLON-TYPE LETTER TO PRINT" 
155 PRINT "HIT [RETURN] TO STOP" 


160 PRINT ": ";: POKE 208,0: GET KEY A$:PRINT AS; 
165 IF AS = CHRS (13) THEN END 
170 : 


180 AC = ASC (AS) 
190 IF AC AND 128 THEN CO = AC AND 127 OR 64: 
GOTO 230 
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200 IF NOT AC AND 64 THEN CO = AC: GOTO 230 
210 IF AC AND 32 THEN CO = AC AND 95: GOTO 230 
220 CO = AC AND 63 

230 REM ** CHAR CODES ** 

240 BANK 14 

250 FOR A = O TO 7 

260 CH(A) = PEEK (53248 + (8 * CO) + A) 

270 NEXT A 

280 BANK 15 

290 : 

300 REM ** CHAR ROTATE ** 

310 FOR A = O TO 7 

320 K(A) = 0 


330 NEXT A 
340 FOR A = 0 TO 7 
350 FOR B = 7 TO 0 STEP - 1 


360 W=2%*% B 

370 IF CH(A) >= W THEN CH(A) = CH(A) - W: K(7 - 
B) = K(7 - B) +2 °A 

380 NEXT B,A 

390 : 

400 REM ** CHAR OUTPUT ** 

410 FOR I = 0 TO 7 

420 QS — we 

430 FOR J = 7 TO 0 STEP - 1 

440 WI = K(I) AND 2% J 

450 IF WI THEN FOR U = 1 TO HO: QS = QS + SS: 
NEXT U: GOTO 470 

460 FOR U = 1 TO HO: QS = Q$ + L$: NEXT U 

470 NEXT J 

480 REM ** DELETE UNNECESSARY BEGINNING SPACES ** 

490 LX = LEN (QS) - 1 

500 IF RIGHTS (Q$,1) = " “" THEN QS = LEFTS 
(QS,LX): GOTO 490 

510 FOR U = 1 TO BR 

520 PRINT# 4,QS 

530 NEXT U 

540 NEXT I 

550 GOTO 160 
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1.15 DEFINING YOUR OWN CHARACTER SETS 


Now we'll redefine the built-in character set using our pseudo POKE 
program from Chapter 1.10. To help you, we've supplied the following 
program. 


Normally, every character is built within an 8 X 8 matrix. A good monitor 
will allow you to see these individual points. The "A" character looks like 
this when enlarged: 


76543210 


ee ee 

kK KK 
KR KK, 
KKK KKK 
LKR KK, 


WHO PWNE O 


This is what you get when you run the character generator reading program. 
You have this same matrix in which to design each of your own characters 
(if you want still more, read on). Every line of a character consumes one 
byte of memory, and each pixel within a byte is equal to one bit. Each bit 
shows a point when it is set (1). 


RUN the following program, which turns the "@" sign into a square: 


10 A = DEC("D600"): B= Atl 

20 BA = 8192: ZE= 0 

30 FOR X = 0 TO 7 

40 AD BA + X + (8*ZE) 

50 HI INT (AD/256) : LO = AD - (HI*256) 
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60 READ CH 


70 SYS ("DEC1800") ,CH, LO, HI 


80 NEXT X 


90 END 
100 DATA 255,129,129,129,129,129,129,255 


Now for an explanation of what happens: 


10 
20 


30 
40 
50 
60 
70 


A=base if VDC, B=register 1 

BA=base of char. generator, ZE= character to be altered 
(A=1, B=2, etc.) 

change 8 bytes 


byte address=base of char. gen+byte number+8*char. number 
AD converted into low byte/high byte format 

read new byte values 

modified POKE routine POKEs value into video RAM 

100 DATA for square: 


76543210 


KKKKKKKKO 


+ + + + 


“1 
*Z 
*S 
*4 
<5 
*6 


KAKKKKKAKT 


255 
129 
129 
129 
129 
129 
129 
Z55 


(2*°742°64+2°542%442°342°24+2%°14+2%0) 
(2°74+2%0) 
(2“°7+2%°0) 
(2°74+2%0) 
(2“°7+2%°0) 
(2°74+2%0) 
(2°7+2°0) 
(2°74+2°6+2°542%44+2°342%24+2%1+2%0) 


Now, change line 100 to this 


100 DATA 60, 66,157,161,161,157, 66, 60 


or this: 


100 DATA 66,157,161,161,161,161,157, 66 


and press the "@" key. 
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1.16 80-COLUMN CHARACTER EDITOR 


You could redefine the entire character set by hand, and POKE it into 
memory. You don't need to, though; use this program instead. 


1 ZN = 5100 

2 MA = 7 

3 DIM D (MA) ,WS (MA 
10 Do SM res aed i 


20 REM CHARACTER-EDITOR (80-COLUMN-CHARSET) 

30 FOR Y = 0 TO 7: D(Y) = O: NEXT Y 

31 PRINT "{CLR HOME}{RVS ON} {WHT} 80-COLUMN 
CHARSET EDITOR-EDIT CHARACTER {RVS OFF}" 

32 MF = 1 


40 PRINT 
50 PRINT "ENTER CHARACTER TO EDIT, THEN 
'RETURN' -->";: GET KEY CS 


55 PRINT CS: PRINT 

60 AC = ASC (CS) 

70 IF AC AND 128 THEN CO = AC AND 127: GOTO 110 
80 IF NOT AC AND 64 THEN CO = AC: GOTO 110 

90 IF AC AND 32 THEN CO = AC AND 95: GOTO 110 


100 CO = AC AND 63 

110 AD = 53248 + CO * 8 

120 cs — iw 

130 : 

140 PRINT "{CRSR DOWN}{RVS ON}{GRN} ORIGINAL 
{RVS OFF} {RVS ON} {L GRN} USER 
{RVS OFF}" 


150 BANK 14 
160 FOR X = OQ TO MA 


170 CZ = PEEK (AD + X): IF X > 7 THEN CZ = 0 
180 FOR Y = 7 TO O STEP - 1 
190 IF CZ > = 2 * Y THEN CS = CS +"{WHT}*{GRN}" 


- CZ = CZ = 2." Ye ELSE CS = Cot" ." 
200 NEXT Y 
210 PRINT "{GRN}";CS;X; TAB( 16);"{L GRN}";: 
PRINT USING "##";X; 
211 PRINT TAB( 19);DS$ 


32 


Abacus Software Tricks and Tips for the C-128 





220 
230 
231 


232 
240 


CS — wee 

NEXT X 

PRINT "{RVS ON} {GRN} {RVS OFF} 
{RVS ON} {L GRN} {RVS OFF}" 


BANK 15 


REM EDITOR-ROUTINE 

PRINT "{WHT}"; 

OPEN 1,0 

FOR Y = 0 TO MA 

CHAR ,16,7 + Y 

PRINT " ->"; 

WINDOW 19,7 + Y,27,7 + Y,MF 
POKE 244,1: INPUT# 1,WS(Y) 
WS(Y) = LEFTS (WS(yY),8) 
WINDOW 0,0,39,24: REM 0O,0,79,24 FOR 80 
COLUMN 

FOR X = 1 TO 8 


IF MIDS (WS(Y),X,1) = "*" THEN D(Y) = D(Y) 
+2 %* (8 - X) 

NEXT X 

NEXT Y 

CLOSE 1 


CHAR ,0,22: PRINT "CORRECTIONS (Y/N) ?";: 
GET KEY AS 


IF AS = "Y" THEN MF = 0: FOR Y = O TO 7: 
D(Y) = 0: NEXT Y: GOTO 260 

PRINT : PRINT "USE CHARACTER (Y/N) ?";: 
GET KEY AS 

IF AS = "N" THEN 30 


REM USE CHARACTER 

PRINT "{CLR HOME}{CRSR DOWN}{CRSR DOWN}"; 
ZN = ZN + 10 

PRINT ZN; "DATA ";CO;","; 

FOR X = O TO MA: PRINT D(X);"{CRSR 
LEFT},";: NEXT X 

PRINT "{CRSR LEFT} " 

PRINT ZN + 10;"DATA -1" 

PRINT : PRINT "GOTO 30" 

PRINT "{HOME}"; 

FOR Y = 842 TO 845: POKE Y,13: NEXT Y 
POKE 208, 4 

END 
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5000 REM BASIC-LOADER CHARACTER DEFINITION 
5005 FOR X = 6144 TO 6182 
5010 READ A 
5015 CS = CS +A 
5020 POKE X,A 
5025 NEXT X 
5030 IF cS < > 3411 THEN PRINT CHRS (7): LIST 
5035 - 5050: END 
5035 DATA 72,138,72,152,72,169,2,141,40,10,162,18 
5040 DATA 104,32,27,24,232,104,32,27,24,162,31 
5045 DATA 104,76,27,24,142,0,214,44,0,214,16,251 
5046 DATA 141,1,214, 96 
5050 READ A IF A = - 1 THEN’ END 
5055 FOR Y = O TO 7 
5060 READ W | | 
5065 AD = 8192 +16 * At+Y 
5070 HI = INT (AD / 256): LO = AD - (256 * HT) 
5075 SYS DEC ("1800") ,W,LO, HI 
5080 NEXT Y 
5085 GOTO 5050 
5110 DATA 1,0,0,0,0,0,0,0,0 
5120 DATA 1,0,0,0,0,0,0,0,0 
5130 DATA -1 
Variables: 
ZN: first line number of DATA statements 
MA: _ matrix 8*MA+1 
D(x): DATA used to calculate character 
W5$(x): given character line 
C$: character to be changed 
AC: ASCII code of C$ 
CO: screen code of ASCII character 
CZ: read-out ROM data 
CS: checksum 
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Program description: 


Don't let the size of this program throw you off; for a well-equipped 
character editor, it's really a very short program! Be sure to SAVE the 
program before running it. 


Once started, the generator will ask for the first character that you want 
changed; just press the desired key. Two 8 X 8 character matrices will 
appear, the left matrix will contain the original character, while the right 
matrix is for you to do your "paperwork". Asterisks ("*") represent set 
points, and periods (".") stand for no point. 


When you've finished modifying each line, press the <RETURN> key. 
Once the character is done, you have the option of going in to make 
corrections. If you wish to do so, press "Y", and make your corrections. 
If everything is right, just press <RETURN>. 


Assuming that the finished character is to your satisfaction, the character 
editor figures out the DATA statements for you. Once all the characters are 
changed, stop the program with the <RUN/STOP> key, and type in: 


DELETE -5000. 


The editor/generator is deleted, leaving you with a BASIC loader starting at 
line 5000 (you might want to change the numbering now, using the 
RENUMBER command). This loader goes into your program, changing 
only the characters you wished to change -- the other characters appear as 


normal. 
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50 - 120 


140 - 232 


260 - 351 


360 - 400 


1000 - 1039 


1040 - 1070 


5000 - 5085 


Commodore-specific screen code is stored in C$ (very 
different from the ASCII code). 


Screen mask is designed. The memory configuration is 
switched with BANK 14, by which the ROM character 
set at $D000 can be read. Finally, a character is read out 
bit-by-bit, and the bits are set. After reading ROM, 
configuration switches back to BANK 15. 


Editor routine: Screen is opened for data, using INPUT 
without question mark. Every input line of the user 
matrix is defined in a window. 


Prompts: Any corrections? If so, MF will be set to 0, the 
window will remain uncleared. D(Y) will be cleared. 


DATA line of the last character will be printed out in 
CHAR. CODE, NUMBERS format. Last DATA 
statement will be -1. 


Keyboard buffer fills with <RETURN>s, and line is 
rewritten. For more information on how this works, see 
Chapter 5. 


Start of the BASIC loader being produced, with the 
modified POKE implemented in lines 5005-5045. This 
section also contains a read loop for the character DATA 
still to be added. 
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1.17 WORKING WITH MULTIPLE SCREENS 


Video RAM layout: 


$0000 - $07FF screen RAM (dec. 0 - 2047) 

$0800 - $OFFF color RAM, etc. (dec. 2048 - 4095) 
$1000 - $1FFF free (4096 - 8191) 

$2000 - $3FFF character generator (8192 - 16385) 


Notice the memory from $1000 to $1FFF. This 4K in the middle of video 
RAM is unused. You can make good use of this area -- 4K is equal to 
2*2K, and you can see that the screen memory ($0000-$07FF) is 2K in 
size. This free area gives us space to store two additional screen "pages" in 
addition to normal one displayed on the monitor. There are a number of 
uses for this. For example, you can have an invisible screen on which 
graphics are drawn, while you work on the visible screen, and flip back and 
forth between screens. Or, one screen can have a program listing, the 
second a disk directory, and the third the program run of the listing on the 
first screen. 


Implementation: 


The screen memory is normally found at $0000 in video RAM, but this 
isn't a hard and fast rule. Registers 12 and 13 of the VDC contain the high 
and low byte of screen memory's starting address. Three addresses must 
be changed to move screen memory: | 


VDC register 12: high byte of the new starting address 
VDC register 13: low byte of the new starting address 
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Address 2606($0A2E): high byte - new starting address 


Let's say we want to move the start of screen memory from $0000 to 
$1000. The high byte of this address is 16 (1*4096/256): 

10 A=DEC ("D600") :B=A+1 

20 HI=16:L0=0 

30 POKE A,12:POKE B,HI 


40 POKE A,13:POKE B, LO 
50 POKE 2606,HI 


The screen will be filled with garbage; this is normal. Clear the screen with 
PRINT CHR$(147). Now you can use this screen as you normally would. 
When you want to return to your old screen, change line 20 to this: 


20 HI=0 : LO=0 


Now we're back where we started (although the cursor may not be visible, 
you'll be able to type). 


The machine language program below uses all of the free video memory to 
give you three screens. It uses the interrupt, and starts immediately after 
execution: 


Initialization: 


1B00 78 SEI signore interrupt 

1B01 AQ 1C LDA #$1C 

1B03 AO 18 LDY #518 

1B05 8D 15 03 STA $0315 :change interrupt pntr (lo) 
1B08 8D 14 03 STA $0314 :change interrupt pntr (hi) 
1BOB 58 CLI :leave interrupt 

1BOC A9 O00 LDA #S00 

1BOE 8D 00 10 STA $1000 :F1 cleared 
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1B11 8D 02 10 STA 
1B14 8D 04 10 STA 


1B17 


60 


New Interrupt 


1B18 
1B19 
1B1A 
1B1B 
1B1D 
1BIiF 
1B21 
1B23 


1B25_ 


1B27 
1B29 
1B2B 
1B2D 
1B2F 
1B31 
1B34 
1B36 
1B39 
1B3B 
1B3E 
1B41 
1B44 
1B46 
1B49 
1B4C 
1B4E 
1B50 
1B53 
1B56 
1B58 
1B5B 
1B5C 
1B5D 
1B5E 


1B 
1B 
1B 
D6 
D6 
D6 
OA 
D6 
D6 


D6 


RTS 


PLA 


$1002 
$1004 


SD5 
#$58 
S1iC5F 
#S0C 
#$04 
$1C38 
#$05 
$1C3D 
#$06 
$1C5F 
#$00 
$1B3E 
#510 


$11B3E 


#518 

$1B3E 
SD600 
SD600 
$1Cc45 
SD601 
SD601 
#SOD 

#$00 

$D600 
SD600 
$1C57 
$D601 


65 FA JMP S$FA65 


°<F3 cleared 
-<F5 cleared 
:ready 


ssave accumulator 


ssave X register 
:read keyboard 
:no key? 
sto normal IRQ routine 
: VDC 
:F1? 
:yes 
:F3? 
:yes 
it es re 
:goto normal IRQ routine 
:screen at $0000 

sset register 

sscreen at $1000 


Then go 
register 12 
-- then goto $1C38 


-- then goto $1C3D 
No -- then 


:set register 


sscreen at $1800 

sset register 

:desired register in REG 0 
sbit 7 set? 

swalt. 
:in video RAM into REG 1 
:set pointer in zeropage 
:VDC register 13 

slow byte =0 

sset register 

sbit 7 set? 

:wait. | 
sin video RAM into REG 1 
sreturn X register 


Write value 


Write byte 


sreturn accumulator 
s-back to IRQ routine 


FOR BASIC programmers here is the BASIC loader. 
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10 FOR X = 6912 TO 7008 
20 READ A: CS = CS + A: POKE X,A 
30 NEXT X 
40 IF CS < > 9318 THEN PRINT CHRS (7);: LIST 
45 SYS 6912 
50 DATA 120,169,27,160,24,141,21,3,140,20,3,88 
60 DATA 169,0,141,0,16,141,2,16,141,4,16, 96 
70 DATA 72,138,72,165,213,201,88,240,58,162,12,201 
80 DATA 4,240,13,201,5,240,14,201, 6,208, 44,169 
90 DATA 0,76, 62,27,169,16,76,62,27,169,24,76 
100 DATA 62,27,142,0,214,44,0,214,16,251,141,1 
110 DATA 214,141,46,10,162,13,169,0,142,0,214, 44 
120 DATA 0,214,16,251,141,1,214,104,170,104,76,101 
130 DATA 250 


RUNning the initialization program causes our IRQ vector (Interrupt 
Request vector) in the second half of the routine to be added to the normal 
IRQ routine (the IRQ is what the computer executes every 1/60 second). 
This routine then gives you three separate 80 column screens to work with. 
You can shift screens in program mode (by pressing F1, F3 or F5; be sure 
to clear each new screen before use), or in direct mode (POKE 213,4; 
POKE 213,5; or POKE 213,6, respectively). 


1.148 MANIPULATING THE VDC 8563 


Here's another feature of the new 80-column display controller. To show 
you that we're not praising this chip too much, there is a demonstration 
program below which will show you just how versatile the VDC 8563 is. 


At this point, you may want to review the VDC register listing in Chapter 
1.7. 
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When we manipulate the display controller, the entire normal screen 
representation is put on the stack. In your experiments, you should 
remember a complete recovery of the VDC controller is often possible only 
by switching the computer off. By the same token, you won't cause any 
internal damage from playing with the registers. 


Moving the Screen Windows 
Those of you who owned VIC-20s in "the old days" remember that the 


entire screen could be moved around. This effect is accomplished on the 
80-column C-128 using the VDC registers 2 and 7: 


02 Shifts screen window horizontally & character-wise 
07 Shifts screen window vertically & line-wise 
Let's try it out: 


10 REM MOVING THE SCREEN WINDOW 
20 A=DEC ("D600") :B=At+1 

30 FOR X=0 TO 255 

40 POKE A,2:POKE B,X 

50 POKE A,7:POKE B,X 

60 NEXT X 

70 END 


This listing will make the screen wander diagonally. You can return it to 
normal by pressing <RUN-STOP/RESTORE>. | 


41 


Abacus Software | Tricks and Tips for the C-128 
ee 


Simulating an explosion may be more to your tastes. The quality of a game 
often depends on its realism; try this program out. We leave the sound 
effects to your discretion. 

10 REM EXPLOSIONS SIMULATION 

15 A= DEC ("D600"): B=A++1 

20 FOR X = 0 TO 50 

30 Y = INT ( RND (1) * 2) + 101 

40 2Z= INT ( RND (1) * 2) + 31 

590 POKE A,2: POKE B,Y 

60 POKE A,7: POKE B,Z 

70 NEXT X 


80 POKE A,2: POKE B,102 
90 POKE A,7: POKE B,32 


1.19 MANIPULATING SCREEN FORMAT 


You're presently in 80-column mode which, as the name implies, has 80 
characters per line, and 25 lines per screen page. Let's say that we want to 
change this format for now. This is a relatively easy task, using VDC 
registers 1 and 6: 


01 Characters per line (default 80) 
06 Lines per screen page (default 80) 


NOTE: You can't get any more than 80 columns. Our goal, here, is to 
increase the number of lines on the screen using this formula: 


(new number of columns) * (new number of lines) = 2000 
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If the total is greater or less than 2000, we may run into trouble. Try this, 
using 30 lines * 62 characters: 

10 REM NEW SCREEN FORMAT 62 * 30 

20 A=DEC ("D600") :B=A+1 

30  POKE A,1:POKE B, 62 


40 POKE A,6:POKE B, 30 
50 END 


All this program does is change the screen format to 30 X 62. You can 
design any format in principle with this program. Perhaps you can make 
use of this in games simulating a mineshaft, or deep well, or having a sprite 
move offscreen. 


1.20 FOR MONOCHROME MONITOR OWNERS 


If you're the lucky owner of a "green screen" (or amber, or whatever), you 
obviously can't take advantage of the C-128's colors. At best, you get two 
shades of monitor color. What do you need that 2K of attribute RAM for? 
It's there for screen development, but in the case of monochrome output, 
it's just collecting dust, so to speak. If we want to use that RAM, we 
consult VDC register 25: 


25 Smooth Scroll horizontal 


Bit 6 of this register declares whether attribute RAM is on or not: 
10 REM DEACTIVATING ATTRIBUTE RAM 


20 A=DEC ("D600") :B=A+1 
30 POKE A,25:POKE B,PEEK(B) AND NOT 64 
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This brief routine switches off attribute RAM ($0800 - $OFFF), and turns it 
over to you to use for screen memory. Naturally, this routine can also be 
used by RGB monitor owners who wish to do without color. 


The Curtain Falls .... 


Normally, the screen window sits within a prescribed border. These edges 
can be adjusted by VDC registers 34 and 35: 


34 Start of screen representation 
35 End of screen representation 


Rather than go into lengthly explanations, here's a demo program: 


10 A= DEC ("D600"): B=A+t+1 
20 INPUT x,Y 

30  POKE A,34: POKE B,X 

40  POKE A,35: POKE B,X - Y 

60 GOTO 20 


The left and right borders can also be moved without disturbing screen 
contents. Try this: | 


10 A = DEC ("D600"): B=At1 
20 FOR X = 0 TO 40 

30 POKE A,34: POKE B,46 - X 

40 POKE A,35: POKE B,46 + X 

50 FOR T = 1T010: NEXT T 

60 NEXT X 
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1.21 THE 8x16 CHARACTER MATRIX 


You played around with custom characters a few pages ago; you'll recall 
that each character is built into an 8 X 8 matrix: 


76543210 


Now that you've had some experience in character design, you may not 
want to be limited to the 8 X 8 matrix; it's too small to make a spaceship 
character, and much too large for a small character. In the paragraphs to 
follow, we'll show you how to change the size of the character matrix itself. 


Let's peek into the registers that control matrix size (registers 22 and 23): 


22 Matrix display (horizontal) 
23 Matrix display (vertical) 
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ea SASS SS SSS Ssh as eS 


Relative Changing of the Matrix 


Each register lists how many pixels are in a character matrix; default of both 
registers is eight, governed by the first four bits of register 22 and the first 


five bits of register 23. 
10 A = DEC ("D600"): B=A+1 
20 FOR X = 0 TO 8 
30 POKE A,22: POKE B, PEEK (B) AND NOT 7 OR X 
40 FOR T = 1 TO 100: NEXT T 
50 NEXT X 
60 FOR X = 0 TO 8 
70  POKE A,23: POKE B,X 
71 FOR T = 1 TO 100: NEXT T 
80 NEXT X 
90 END 


Here's a neat little arrangement for game use: 


A = DEC ("D600"): B=Art+1 

FOR X = 0 TO 8 

POKE A,22: POKE B, PEEK (B) AND NOT 7 OR X 
POKE A,23: POKE B,X 

FOR T = 1 TO 200: NEXT T 

NEXT X 

END 


This is only a relative size change, and leaves us with an 8 X 8 matrix, most 


of which simply goes unused. 
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1.22 TOTAL 16X8 MATRIX MANIPULATION 


Let's try developing a 16X8 matrix. In other words, we'll create an 
8-column matrix of 16 lines. We'll find the needed numbers at registers 4 
and 9 of the VDC: 


04 Vertical synchronization 
09 Vertical matrix register 


Register 9 declares the number of lines in a character. To raise the matrix to 
16 points, we'll have to double the amount in register 9, and change the 
synchronization in 04: 


10 REM 16 * 8 MATRIX 
20 A=DEC ("D600") :B=A+1 
30 POKE 228,16 

40 READ X 

50 IF X=-1 THEN END 

60 READ Y 

70 POKEA, X:POKEB, Y 

80 GOTO 20 


100 DATA 9,15 

110 DATA 6,17 

120 DATA 23,15 
130 DATA 4,19 

140 DATA 7,19 

150 DATA -1 


After starting the program, the screen looks funny; there's a big space 
between the screen lines, but the characters are still clear. That space is due 
to the enlarged matrix; the space is the additional 8 pixels (see Chapter 
1.12). 
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Type PRINT CHR$(27)+"R" in direct mode; this reverses the screen 
contents, and lets you see the scope of the character expansion. This project 
gives you 17 lines of 80 characters, with a 16 X 8 matrix. Let's figure out 
the total resolution: 


PRINT 17*80* (16*8) 


This gives you 174,080 pixels!! Since the video RAM is limited to 16K, 
these points can't be easily set (e.g., bit-mapping). 


Program Explanation: 
10 A=VDC,B=REG 01 
20 Bottom window border is set to keep cursor from scrolling 
offscreen. 
30 VDC loaded with new value. 
60 Read DATA 
70 Switch character size from 8 to 16 pixels. 
80 Limit to 17 lines per screen. 
90 16X 8 pixels per character. 


100 20 lines (+ border) instead of 40. 
110 Bring up screen contents in proper format. 
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1.23 DOUBLE-HEIGHT CHARACTERS 


So, what can we do with that 16X8 matrix? We can create double-height 
characters, and this next program lets you do just that. 


10 REM POKE-ROUT 

20 FOR X = 6144 TO 6182 

30 READ A: CS = CS + A: POKE X,A 

40 NEXT X 

50 IF CS < > 3411 THEN PRINT "DATA-ERROR": END 
60 DATA 72,138,72,152,72,169,2,141,40,10,162,18 
70 DATA 104, 32,27,24,232,104,32,27,24,162,31,104 
80 DATA 76,27,24,142,0,214,44,0,214,16,251 

85 DATA 141,1,214,96 

90 REM COPY | 

100 FOR W = 0 TO 255: REM 256 CHARS 

110 FOR K = 0 TO 7: REM 8 LINES EACH 

120 AD = 53248 +W* 8 +K 

130 BANK 14: K(K) = PEEK (AD): BANK 15 

140 NEXT K 

150 FOR K = 0 TO 15: REM 15 LINE SET 

160 AD = 8192 +W* 16+K 

170 HI = INT (AD / 256): LO = AD - (256 * HI) 
180 SYS DEC ("1800"),K( INT (K / 2)),LO,HI 

190 NEXT K 

200 NEXT W 


This routine is SLOW in BASIC. For impatient readers, we'll give you a 
machine code listing: 


OBOO A2 03 LDX #$03 :Read loop 

OBO02 BD 41 OB LDA 0B41,X :sLoad starting address 
OB05 95 FA STA SFA,X sinto free zero page 
OBO7 DEX :Everything read in? 
OBO8 10 F8 BPL SOBO2 :sNo -- continue 

OBOA A2 01 LDX #$01 :Set bank 

OBOC 8E 00 FF STX SFFOO :configuration 

OBOF AO OO LDY #S00 sto O+vector 
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0B11 
0B13 
0B14 
0B16 
0B19 
OB1B 
OB1D 
0B20 
0B22 
0B24 
0B26 
0B27 
0B29 
OB2B 
OB2E 
0B30 
0B32 
0B34 
0B36 
0B38 
OB3A 
OB3C 
OB3E 
0B40 
0B41 
0B46 
0B47 
0B48 
0B49 
OB4A 
OB4B 
OB4D 
OB50 
OB52 
0B53 
OB56 
OB57 
0B58 
OB5B 
OB5D 
OBSE 
OB61 
OB64 


O02 
28 
12 


61 
61 
1F 
61 


00 
00 


FF 


OB 


OB 


00 


OA 


OB 


OB 


OB 
D6 
D6 


(SFA) ,Y 


#S00 
SFFOO 
SFC 
SFD 
SOB46 
SFC 
SOB26 
SFD 


SFC 
SFD 
SO0B46 
SFC 
S$0B34 
SFD 
SFA 
SOB3A 
SFB 
SFB 
#SEO 
SOBOA 


#$02 
SOA28 
#$12 


SOB61 
SOB61 
#S1F 

SOB61 


$D600 
$D600 


50 


:Get 


:Get 


:set 
:register 

:VDC REG 19 
:Set high byte 
:of register 
:VDC REG 31 
:Character 
:Register set, 
:Desired register given 
:Bit 7 set? 
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sRead in start address 
:<Get it 

:Set bank 
:configuration 

:Low video RAM address 
:High video RAM address 
:POKE subroutine 
:Low=Low+t1 

:Low greater than 0 

: Low=0 :High=Hight1 

:Get High ROM 

:Low video RAM address 
:sHigh video RAM address 
:POKE subroutine 

: Low=Low+1 

:Low greater than 0. 

: Low=0 : High=High+1l 

:Low ROM=Low ROM+1 
:Still >0? 
sHigh ROM=High ROM+1 
:Load 

;Reached end of ROM 
:yet? 
:Return to BASIC 

:<Pntr starting address 
:Get 


. NO-- 


NO--go on 


character 
low byte 
high byte 
cursor flag 


REG 18 
low byte of 


ready 
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OB67 10 FB 


OB69 8D 01 D6 STA SD601 
OB6C 60 
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BPL SOB64 :NO--then wait 
:for given value 


RTS sReturn 


There is, of course, a matching BASIC loader: 


5000 FOR X = 2816 TO 2924 

5010 READ A: CS = CS + A: POKE X,A 

5020 NEXT X 

5030 IF CS <> 13689 THEN PRINT CHRS (7);: LIST 
5040 DATA 162,3,189,65,11,149,250,202,16,248,162,1 
5050 DATA 142,0,255,160,0,177,250,72,162,0,142,0 
5060 DATA 255,166,252,164,253,32,70,11,230,252,208,2 
5070 DATA 230,253,104,166,252,164,253, 32,70,11, 230,252 
5080 DATA 208,2,230,253,230,250,208,2,230,251,164,251 
5090 DATA 192,224,144,202,96,0,208,0,32,0,72,138 
5100 DATA 72,152,72,169,2,141,40,10,162,18,104, 32 
5110 DATA 97,11,232,104,32,97,11,162,31,104,76,97 
5120 DATA 11,142,0,214,44,0,214,16,251,141,1,214 
5130 DATA 96 | 


Defining the 16X8 Matrix 


Let's continue by defining some 16X8 characters. This procedure has 
already been covered in the chapter on "Designing your own Characters". 
Make the following corrections in the 80 column character editor program: 


2 MA=15 
59055 FOR Y=0 TO 15 
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1.24 MOVING THE VIDEO RAM 


Video RAM is divided into four sections: 


$0000 2K Screen memory 
$0800 2K Attribute RAM 
$1000 Free 

$2000 8K Character generator 


You'll find the purpose of the free 4K ($1000) in Chapter1.17; for the 
moment, we're talking about the other three areas. It's possible to move 
attribute RAM and screen RAM in 256-byte steps, while the character 
generator can only be moved 8K ata time. Here are the VDC's registers for 
controlling this: 


12 High byte of screen memory 

13 LOw byte of screen memory 

20 High byte - attribute RAM 

21 LOw byte - attribute RAM 

28 HIgh byte - character generator (bits 5-7) 


Moving Attribute RAM 


The program below moves attribute RAM into any area of video RAM. 
Please note that you are limited to 256-byte steps. 
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10 REM ATTRIBUTE RAM SHIFTER 

20 INPUT "NEW STARTING ADDRESS"; ADS 

25 AD=DEC (ADS) 

30 IF AD/256=INT (AD/256) THEN 40:ELSE PRINT 
"256K STEPS!":GOTO 20 

40 HI=INT(AD/256) :LO=AD-(256*HI) 

50 A=DEC ("D600") :B=A+1 

60 POKE A,20:POKE B,HI 

70 POKE A,21:POKE B,LO 

80  POKE 2607,HI 


The value at line 80 is a special number; it's not enough to simply change 
the VDC registers or they will remain unchanged. At the same time, a 
specified address in zero page will be loaded with the high-byte of the new 
starting address: 

2606 :High byte of screen RAM 

2607 :High byte of attribute RAM 


Try the address "1000"; attribute RAM is moved to the free area. Type a 
few different characters on the screen and see what you get. Now, run the 
attribute RAM shifter routine again, and specify "800" as a starting address. 
The characters take on normal color again. 


You can actually use this technique in page-flipping routines (i.e., set up a 
different color memory on each screen page, and switch back and forth). 
We suggest the addresses between "1000" and "1800" as the most suitable. 


Just to show you what happens when you enter an illegal address, run the 
attribute RAM shifter program again, and enter "0000", which will put 
attribute RAM in the same range as screen RAM. The result: every 
character has its own color and shape! 
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Or enter "2000", which puts us in the character generator; certain characters 
lose their normal appearance. 


Moving Screen RAM 


This function is analogous to moving attribute RAM. You'll find the 
important addresses in the preceding sections. 


We believe that shifting screen RAM is a useful extra, since it allows you to 
perform the page-flipping trick (see Chapter 1.17). 


1.25 COLOR FOR THE 80-COLUMN SCREEN 


Color? You bet! 80-column mode gives you a choice of 16 character 
colors, by using <CTRL 1-8> and <C= 1-8>. For now, though, we'll 
concern ourselves with changing the border and background colors. There 
too we have 16 colors to choose from, but we'll have to POKE the colors 
in. In 40-column mode addresses 53280 and 53281 are used; 80-column 
mode utilizes register 26 of the VDC for background. Here's what you do 
to change register 26: 


POKE DEC ("D600") ,26:POKE DEC("D601") ,X [X=COLOR] 


You could use color control characters within a PRINT statement, but it's 
not the best method. POKEing the color into address 241 is a better 
method: 
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POKE 241,X [X=COLOR NUMBER FROM 0 TO 15 ] 
Look for a moment at the last 4 bits of a byte in attribute RAM: 


BIT 4: blinking 

BIT 5: underscored 
BIT 6: reverse video 
BIT 7: 2nd character set 


It was once quite difficult to get these functions; the only way you could 
attain some of these functions was by your own programming efforts. 


Two methods of accessing the second character set are to press <C=> and 
SHIFT simultaneously, or to use a PRINT character string. These other 


functions still aren't very simple to get at, but programming them has gotten 
a lot easier! 


POKE 241,PEEK(241) OR 2*°4:PRINT"THIS LINE BLINKS!" 
POKE 241,PEEK(241) OR 2*°5:PRINT "UNDERSCORED!" 


Here's a sample program: 


10 PRINT “THIS MATTER IS "; 

20 POKE 241, PEEK(241)OR 2%5 

30 PRINT" IMPORTANT"; 

40 POKE 241,PEEK(241) AND NOT 2%°5 
50 PRINT"!" 

60 END 


35 


Tricks and Tips for the C-128 


er ES 


Abacus Software 


The word IMPORTANT will blink if you replace 25 with 244. Using 
"9454244" instead of 25 alone will simultaneously underline AND blink 
the word. Naturally, 26 will bring up reverse video, and 27 will call the 
second character set. 


1.26 CUSTOM CHARACTER GENERATOR 


Earlier in this section, we explained the design of the character generator 
used by the 80-column controller. You'll also remember our mentioning 
that each character has a 16 X 8 matrix. We have already used these 16 
bytes in 16 X 8 definition. We'd like to take that a step further. 


Let's assume that you start with a normal 8 X 8 matrix. Only 8 bytes are 
used in character definition, with the remaining 8 bytes hiding somewhere 
in the background. The machine language routine below (we call it 
"Swapper") trades off one set of 8 bytes for the other set. This means that 
you can design another character set, and switch off between "standard" and 
your own custom characters. 


OBOO AY 00 LDA #$00 :Store first low byte 
OBO2 85 4C STA S4C :pointer 

OB04 AY 20 LDA #820 :Store first high byte 
OBO6 85 4D STA $4D :pointer 

OB08 AYO 08 LDA #S08 :Store second low byte 
OBOA 85 43 STA #S4E spointer 

OBOC AY 20 LDA #$20 :Store second high byte 
OBOE 85 4F STA S4F spointer 

OB10 AO 07 LDY #$07 :8 bytes 

OB12 98 TYA 

OB13 48 PHA :on stack 

OB14 A5 4C LDA $4C :Low byte of first pointer 
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OB16 
OB18 
OB1B 
OB1C 
OB1E 
OB20 
OB23 
OB25 
OB27 
OB2A 
OB2B 
OB2D 
OB2F 
OB32 
0B34 
OB36 
0B38 
OB3A 
OB3C 
OB3E 
OB3F 
OB40 
OB41 
OB43 
OB45 
OB47 
OB49 
OB4B 
OB4D 
OB4F 
OB51 
OB53 
OB55 
OB57 
OB59 
OB5B 
OB5D 
OBSF 
OB61 
OB64 
OB65 
OB66 
OB67 


OB 


OB 


OB 


OB 


S4D 
SOB8C 


S4E 
S4F 
SOB8C 
S4C 
S4D 
SOB65 


S4E 
S4F 
SOB65 
S4C 
SOB3E 
$4D 
S4E 
SOB3E 
S4F 


SOB12 
S4F 
#$40 
SOB64 
#$08 
S4C 
S4C 
#$00 
S4D 
$4D 
#$08 
S4E 
S4E 
#$00 
S4F 
S4F 
$0B10 


:Hi-byte of first pointer 
:PEEK subroutine 

:Put char. 
:Lo-byte of second pointer 
:Hi-byte of second pointer 
:PEEK subroutine 

:Low byte of first pointer 
:Hi-byte of first pointer 
:POKE subroutine 

:Read character 

:Lo-byte of second pointer 
:sHi-byte of second pointer 
:POKE subroutine 

:Low byte 1l=Low byte 1+1 
:Still >0? 

:NO--High 1=High 1+1 

:Low byte 2=Low byte 2+1 
:Still >0? 

sNO--High 2=High 2+1 

:Back to read-in value 


on stack 


:Copy more 
:Hi-byte of second pointer 
:reached $4000 yet? 


> YES--ready 

:Low=Low+ 8 char. bytes 
sadded 

:Store some more 

sadd O 

:sadd carry 

:Store some more 
:Low2=Low2+8 char. bytes 
:added 

:Store some more 

:add O 


:add carry 

:Store some more 
: Loop 

:Go back to BASIC 
:Hold char. 


:Get low byte 
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OB68 
OB69 
OB6A 
OB6C 
OBOF 
OB71 
OB72 
OB75 
0OB76 
OB77 
OB7A 
OB7C 
OB7D 
OB80 
OB83 
OB86 
OB88 
OB8B 
OB8C 
OB8D 
OB8E 
OB8F 
OB91 
OB92 
OB95 
OB96 
OB97 
OB9SA 
OB9C 
OB9F 
OBA2 
OBA4 
OBA? 
OBAY 


OA 


OB 


OB 


OB 
D6 
D6 


D6 


OB 


OB 


D6 
D6 


D6 


#$02 
SOA28 
#$12 


SOB80 


SOB80 
#S1F 


SOB80 
SD600 
SD600 
$0B83 
SD601 


#512 
SOB80 


SOB80 
#S1F 

SD600 
SD600 


OBOF 


SD601 
SFE 


:Get 
:Ready; set register 
:REG set 

;Wait 

:sWaited long enough? 
:Value given 

:Ready 

:Get low byte 


high byte 


cursor flag 
REG 18 

back high byte 
register ; 
REG 19 
low-byte 
register 

REG 31 

byte 


:Get high byte 

:REG 18 VDC 

sHigh byte in accumulator 
:Set register 

sREG 19 VDC 

sLow byte in accumulator 
:Set register 

sREG 31 VDC 

:Set register 

:Wait 

:Long enough? 

sRead value from video RAM 
:Put on 

:Ready 
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Here's the matching BASIC loader. 


5000 FOR X = 2816 TO 2985 

5010 READ A: CS = CS + A: POKE X,A 

9020 NEXT X 

5030 IF CS <> 17057 THEN PRINT CHRS (7);: LIST 
5040 DATA 169,0,133,76,169,32,133,77,169,8,133,78 
5050 DATA 169,32,133,79,160,7,152,72,165,76,166,77 
5060 DATA 32,140,11,72,165,78,166,79,32,140,11,166 
5070 DATA 76,164,77,32,101,11,104,166,78,164,79, 32 
5080 DATA 101,11,230,76,208,2,230,77,230,78,208,2 
5090 DATA 230,79,104,168,136,16,207,165,79,201, 64,176 
5100 DATA 27,169,8,101,76,133,76,169,0,101,77,133 
9110 DATA 77,169,8,101,78,133,78,169,0,101,79,133 
5120 DATA 79,76,16,11,96,72,138,72,152,72,169,2 

5130 DATA 141,40,10,162,18,104,32,128,11,232,104, 32 
5140 DATA 128,11,162,31,104,76,128,11,142,0,214, 44 
9150 DATA 0,214,16,251,141,1,214,96,72,138,72,162 
59160 DATA 18,104,32,128,11,232,104,32,128,11,162,31 
59170 DATA 142,0,214,44,0,214,16,251,173,1,214,133 
5180 DATA 254,96 


RUNning the routine by typing SYS DEC("0B00") turns the screen black, 
after which the cursor reappears. 


The character generator will be switched in the normal manner. The second 
set of eight bytes per character would normally read null. So, switching the 
character gives you spaces to define. You can call back the original 
character set by calling the routine again. Now load the character editor in 
Chapter 1.16; you can produce new characters to your heart's content. One 
small change will have to be made in the BASIC program, though, at line 
5065: 


9065 AD=8192+16*A+Y+8 
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Now start the loader. Swap your character generators with the routine, and 
gotoit. You can also have two self-defined character sets, rather than one 
"standard" and one "custom" (for games, etc.). 


1.27 SYSTEM ROUTINES 


Maybe you've been looking for special routines to use with 80-column 
mode, like instant access to video RAM, or controller initialization. Well, 
the built-in ROM routines for the 40-column screen aren't limited to that 
mode (the operating system works on both screens). It's possible, then, to 
use the built-in ROM routines in 80-column mode through programming. 


Now, on to the routines themselves. Each routine has two addresses; the 


first is the jump table for the editor, while the second is the starting address 
of the routine proper. Which address you use 1s up to you. 


Screen Initialization 


The following routine initializes the screen, somewhat akin to using 
<RUN-STOP/RESTORE>: 


SYS 49152/SYS 49275 
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Color Output of a Character 


This was mentioned in Chapter 1.9. in connection with the 80-column 
screen. The routine simply prints a character of a specified color on the 
screen, with the position depending on the contents of locations 224 and 
225: 


SYS 49155,CHAR, COLOR 
SYS 52276, CHAR, COLOR 


CHAR: (0-255) Character in screen code (A=1,B=2, etc.) 

COLOR:(0-15) Color the character should be (O=black,1=white, etc.) 
80-column mode also allows values from 0 to 255. The 
additional 4 bits have these meanings: 


BIT 4: Blinking 

BIT 5: Underscore 

BIT 6: Reverse video 
BIT 7: 2nd character set 


ASCIT Output 


The preceding subsection mentioned the "screen code". This code is 
Commodore-specific, and NOT standard; but you can get ASCII output like 
this: 


SYS 49164, ASCII code 
SYS 50989, ASCII code 
PRINT CHRS (ASCII code) 
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Conversely, you can find out the ASCH code by typing: 
PRINT ASC ("K") 


which would give us the ASCII code number for K. 


PRINT AT Simulation 


Basically, this routine lets you format things on screen (called PRINT AT in 
some BASIC versions). Here is a command which works in conjunction 
with the machine language call CHAR: 


SYS 49176,A,column, row:PRINT... 
SYS 52330,A,column, row:PRINT... 


You could conceivably use this to display a command line onscreen (with 
warnings and system status addressed to the user). You see this a lot on 
professional software; now you can have it in a user-friendly atmosphere. 


If you want to see just where the PRINT AT command has written an item, 
check these locations: 
10 REM PRINT AT WITH RETURN 
20 SP=PEEK (236) :REM CURRENT COLUMN STORED 
30 ZE=PEEK (235) :REM CURRENT ROW STORED 
50 SYS 49176,0,5,10:PRINT"COMMAND LINE" 
70 SYS 49176,0,SP, ZE:REM BACK AGAIN 


80 PRINT"BACK THERE" 
90 END 
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All this routine needs to do is get the current cursor position from the 
operating system. 

Definition of Character Sets 

This routine is for the 80-column mode only. If, by some chance, you 
don't like your custom character set, or it doesn't work very well, this 


routine copies the original character set into the VDC's video RAM. 


SYS 49191 / SYS 52748 


40/80-Column Toggling 
We've mentioned this little trick before: 
SYS 49194 / SYS 52526 


For more information on these routines, please see Chapter 11.2: The 
Kernal. 
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1.28 HIGH-RESOLUTION GRAPHICS 


The C-128 has a new BASIC (BASIC 7.0), with a host of graphic 
commands to make hi-res programming easier. Trouble is, the hi-res 
commands only operate in 40-column mode. We don't understand why 
you can't use them in 80-column mode; the doubled resolution (640*200 
pixels) would come in handy. 


The following pages will show you how to do 80-column hi-res graphics, 
and how to use this in your programs. If you're without an RGB monitor, 
you'll have to amuse yourself with standard graphic commands. 

Bit-Map Mode 

Those of you former C-64 and VIC-20 owners probably remember 
"bit-map mode" in high-resolution programming: Essentially, it switches 
the screen from normal to high-resolution mode. Video RAM is no longer 
divided into screen memory, attribute RAM and the character generator. 
The computer works bit-for-bit with video RAM. In other words, for every 
set (on) bit, a point is written to the screen. 

Our 80-column screen would give us a resolution along the lines of: 


16000 BYTES * 8 BITS = 128,000 SCREEN POINTS 


--which you can have either set or unset. 
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Switching on the bit-map mode is accomplished by registers 20 and 25: 


20 Attribute RAM starting address (HIGH) 
25 Bit 7: Hi-Res On/Off 


Let's turn the bit-map on with this little program: 


10 A=DEC ("D600") :B=A+1 
20 POKE A,20:POKE B,0O 
30 POKE A,25:POKE B,128 


Immediately, the screen is a jumble of points and lines. There is method to 
this madness, though: every bit in the 16K of video RAM has been 
switched ON. Using the modified Poke routine from Chapter 1.10, try this: 


SYS DEC ("1800") ,128,0,0 


That turns one point on at the upper left-hand corner of the screen. Now 
that you have the principle, here's a program that draws a sine wave on the 
screen. The PLOT routine works faster than some machine code routines; it 
manages this through a) the modified POKE (see "POKE Simulation"), b) 
the modified PEEK, and c) ERASE (clearing the graphic screen). 


Type this program in first and start it; it's the graphics initialization routine. 


10 FOR X = 6144 TO 6182 

20 READ A : CS = CS + A: POKE X, A 

30 NEXT X 

40 IF CS <> 3411 THEN PRINT "DATA ERROR IN 40" 
50 DATA. ‘12,7 130% 1727152; 72; 169;27,141,40;10;162;,18 
60 DATA 104,32,27,24,232,104,32,27,24,162,31,104 
70 DATA 76, 27, 24, 142, 0, 214, 44, 0, 214, 16, 251, 141 
80 DATA 1, 214, 96 
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85 CS = 0 | 

90 FOR X = 6656 TO 6697 

100 READ A: CS = CS + A: POKE X,A 

110 NEXT X 

120 IF CS <> 4356 THEN PRINT "DATA ERROR IN 120" 
130 DATA 72,138,72,162,18,104,32,30,26, 232,104, 32 
140 DATA 30,26,162,31,142,0,214,44,0,214,16,251 
150 DATA 173,1,214,133,254, 96,142,0,214,44,0,214 
160 DATA 16,251,141,1,214, 96 

165 cS = 0 

170 FOR X = 6400 TO 6453 

180 READ A: CS = CS + A: POKE X,A 

190 NEXT X 

200 IF CS <> 6426 THEN PRINT "DATA ERROR IN 200" 
210 DATA 162,64,169,0,160,0,133,254,72,138,72,162 
220 DATA 18,165,254,32,42,25,232,152,32,42,25,162 
230 DATA 31,169,0,32,42,25,104,170,104, 200,208 
240 DATA 228,230,254,202,208,223,96,142,0,214, 44 
250 DATA 0,214,16,251,141,1,214, 96 


And now for the sine wave: 


10 REM 80 COL SINE WAVE PLOT PROGRAM 

20 A= DEC ("D600"): B= At 1 

30 REM PLOT:SYS DEC("1800") ,BYTE, LO,HI 

40 REM ERASE:SYS DEC("1900") 

50 REM PEEK:SYS DEC("1A00"),LO,HI: 
PRINT PEEK (254); 

60 : 

70 POKE A,25: POKE B,128: POKE A,20: POKE B,0O 

80 SYS DEC ("1900") 

110 FOR X = O TO 639 

120 Y = INT ( SIN (X / 10) * 100) + 100 

130 GOSUB 170 

140 NEXT X 


150 END 
170 REM PLOT 
180 AN 80 * Y 


190 Z21 = INT (X / 8) 

200 AD = AN + Z1: HI =INT (AD/256):LO =AD-256 * HI 
210 SYS DEC ("1A00"),1L0O,HI 

220 PE PEEK (254) OR 2 * (7 - (X - Zl * 8)) 
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230 SYS DEC ("1800"),PE,LO,HI 


240 RETURN 


The modified POKE has been described previously. Here is the ERASE 


routine: 


1900 A2 40 LDX #$40 
1902 AY 00 LDA #$00 
1904 AO OO LDY #$00 


1906 85 FE STA SFE 
1908 48 PHA 

1909 8A TXA 

190A 48 PHA 

190B A2 12 LDX #$12 
190D AS FE LDA SFE 
190F 20 2A 19 JSR $192A 
1912 E8 INX 

1913 98 TYA 

1914 20 2A 19 JSR $192A 
1917 A2 1F LDX #S1F 
1919 AX OO LDA #S00 


191B 20 2A 19 JSR $192A 


191E 68 PLA 

191F AA TAX 

1920 68 PLA 

1921 C8 INY 

1922 DO E4 BNE $1908 
1924 E6 FE INC SFE 
1926 CA DEX 

1927 DO DF BNE $1908 
1929 60 RTS 


192A 8E 00 D6 STX SD600 
192D 2C 00 D6 BIT S$D600 
1930 10 FB BPL $192D 
1932 80 01 D6 STA SD601 
1935 60 RTS 


:Clear 64 pages 
>from $0000 


:Store high byte 
sand retrieve 


:sRetrieve pages 

:VDC REG 18 

:Load high-byte 

:-Set register 

:VDC REG 19 

:Low byte into accumulator 
:Set register 

:VDC REG 31 

:Write O into video RAM 
:Set register 

:Get high byte 

sin X-register 

:Get pages 


:Loop | 
:High=Hight+1 
:Page=Page-1 
<Still 50? 
>Return to BASIC 
:Set register 

:Wait 

:Waited long enough? 
:Value given 

>Return 


Keep going. 


These graphic commands aren't exactly the fastest. It won't be long, 


though, before someone brings out an 80-column graphic extension. 
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1.29 CHARACTER GENERATORS -- AGAIN 


We close with a short program that will perform a headstand -- literally. We 
suggest that you review the POKE routine ($1800) and PEEK routine 
($1.A00) in the previous chapters. 


Here's one for the normal 8 X 8 matrix: 


10 
20 
30 
40 
50 
60 
70 
80 
90 


FOR X = 0 TO 511 

FOR X2 = 0 TO 3 

Al =8199+8*X-X2: H1= INT(A1/256): L1l= A1-256*H1 
SYS DEC ("1A00"),1L1,H1 

Wl = PEEK ( DEC ("FE") ) 

A2 =8192+8*X+X2: H2 =INT(A2/256): L2 =A2-256*H2 
SYS DEC ("1A00"),L2,H2 

W2 = PEEK ( DEC ("FE") ) 

SYS DEC ("1800") ,W2,L1,H1 


100 SYS DEC ("1800") ,W1,L2,H2 
110 NEXT X2 
120 NEXT X 


And one for the 16 X 8 matrix (you must have previously defined a 16X8 


matrix to see the results of this program): 


10 
20 
30 
40 
50 
60 
70 
80 
90 


FOR X = 0 TO 9511 

FOR X2 = QO TO 7 

Al =8207+16*X-X2: H1=INT(A1/256) :L1=A1-256*H1 
SYS DEC ("1A00"),1L1,H1 

Wl = PEEK ( DEC ("FE") ) 

A2=8192+16*X+X2: H2=INT(A2/256) :L2=A2-256*H2 
SYS DEC ("1A00"),L2,H2 

W2 = PEEK ( DEC ("FE") ) 

SYS DEC ("1800") ,W2,L1,H1 


100 SYS DEC ("1800"),W1,L2,H2 
110 NEXT X2 
120 NEXT X 
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BASIC 7.0 GRAPHICS COMMANDS 


2.1 THE CIRCLE COMMAND 


CIRCLE is one of the most versatile commands in BASIC 7.0. As its name 
suggests, it can draw circles. But it can also draw lines, triangles, 
rectangles, ellipses and other geometric shapes. The command uses the 
following format: 


CIRCLE clr,x,y,xXY,xXy,Sa,ea,r,1 
These parameters are defined as follows:: 


clr Number of color memory (0-3) 
x,y Coordinates for center point 
xr Radius in x-direction 
yc _ Radius in y-direction 
sa Starting angle of the circle 
ea End angle of the circle 
r Angle for rotation 
Angle for drawn circle segments 


To draw a circle use the first four parameters; the rest are for finer details, as 


we shall soon see. The first value gives color memory; the next two 
indicate midpoint coordinates; and the next, the radius. 
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Drawing an ellipse requires the previous coordinates, plus the Y-register 
radius (if unequal to the X-register radius): 


CIRCLE 0,160,100,10, 30 


If you wish to turn the ellipse at the midpoint, you'll have to change the last 
value. For example: 


CIRCLE 0,160,100,10,30,0,360,45 
These parameters give the number of degrees drawn of the ellipse/circle. 
The sixth and seventh values tell at which angles the circle/ellipse begins 
and ends. We can get a half-circle by doing this: 


CIRCLE 0,160,100,30,30,0,180 


How can we get squares out of this command? The last parameter performs 
that function, using these numbers: 


0-44 Circle (higher the number, the "rounder") 

45 Octagon 

60 Hexagon 

75 Pentagon 

90 Square & Rectangle 

91-119 Unequal rectangle 

120 Equilateral triangle 

121-179 Triangle (higher the value, the more unequal) 
180-255 Lines 
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2.2 PIE CHARTS 


BASIC 7.0's graphic commands offer a lot to the user. One of the little 
extensions of the CIRCLE command that we've written is a fascinating one: 
PIE CHARTS. You can imagine how useful this program can be for 
calculation programs, statistics and the like. Naturally, our routine isn't as 
good as something "store-bought"; we'll leave it to you to improve it... 


Now on to the program. One problem that cropped up was the fact that the 
color memory in hi-res mode isn't the same size as the graphic memory. 
So, we had to color in an entire field with 8 X 8 points. We could have 
used multicolor mode instead, but then we would have ended up with a pie 
with sharp edges. 


These problems only occur in every other segment. You can turn segment 
colors off altogether (delete 340-390) to avoid some of these difficulties. 


10 REM PIE CHARTS 

20 GRAPHIC 0,1 

30 INPUT "SEGMENT SIZE";N 
35 IF N = 0 THEN’ END 

40 DIM A(N) 

45 DIM P(N) 

50 DIM TS (N) 

60 FOR I = 1TON 

70 PRINT I". SEGMENT" 

80 INPUT "VALUE";A(T) 

90 P= P + A(T) 

100 INPUT "TEXT ";TS (TI) 
110 NEXT I 

120 INPUT "ANY CHANGES (Y/N) ";AS 


130 IF LEFTS (AS,1) = "Y" THEN BEGIN 
140 FOR I =1TON 


150 PRINT I". "TS(I),A(T) 
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160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
525 
530 
540 
950 
955 
556 


NEXT I 

INPUT "SEGMENT NUMBER ";I 
P =P - A(I) 

INPUT "VALUE";A(T) 

P= P + A(T) 

INPUT "TEXT ";TS$(T) 

GOTO 120 

BEND 

REM DRAW PIE CHART 
GRAPHIC 1,1 


COLOR 1,1 
CIRCLE ,160,100, 80 
G=0 


FOR I = 1TON 

P(I) = A(I) / P * 100 

G=G + P(I) 

CIRCLE ,160,100,80,0,0,80,G * 3.6 
IF I /2< > INT (I / 2) THEN 520 
REM DRAW SEGMENTS 

COLOR 1,I / 2 + .5 

CIRCLE ,160,100,80,0,0,40,G * 3.6-P(I) * 1.8 
X = RDOT (0) 

Y = RDOT (1) 

PAINT ,X + 2,Y + 1 

NEXT I 

ogi TEXT PRINT 


= 0 
FOR I =1TON 
G = G + P(I) 
COLOR 1,1 /2+ .5 
CIRCLE ,160,100,80,0,89,90,G * 3.6-P(I) * 1.8 
os 1,1 

= RDOT (0) / 8 
: = RDOT (1) / 8 
IF X < 16 THEN X = X -_ LEN (TS(I)) 
CHAR ,X,Y,TS$(I)+STRS$(INT(10*P(I) + .5) / 10) 
NEXT I 
CHAR ,14,24,"'"SPACE' TO CONT." 
GET KEY AS 
GRAPHIC 0 | 
PRINT "{RVS ON}N{RVS OFF}EW PIE CHART" 
PRINT "{RVS ON}O{RVS OFF}LD PIE CHART" 
PRINT "'SPACE' TO END" 
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560 GET KEY AS 
570 IF AS = "N" THEN RUN 
580 IF AS = "O" THEN 120 


The input of different portions results with absolute values and not 
percentages; every portion can include a text string of your choice (as long 
as it's not too large a string). 


2.3 BAR GRAPHS 


Let's go on to another graphic aid for calculation programs: Bar graphs. 
Our programs are limited to 8 "blocks" per character block (it loses 
something on the 40- character screen). Block length is up to you; and the 
highest value would be 100 (as in percent). You'll note that we've taken 
great advantage of the vertical resolution (you'll find the calculations in line 
280). 


10 REM BAR GRAPHS 

20 GRAPHIC 0 

30 SCNCLR 

40 DIM A(8) 

50 DIM F (8) 

60 INPUT "GRAPH NAME";US 
70 US — Ww woo US 

80 FOR I = LEN (US) TO 39 


909 US =uUsS+"" 


110 INPUT "NUMBER OF BARS (1-8) ";D 
120 IF D < 1 ORD > 8 THEN 110 

130 FOR I = 1 TO D 

140 PRINT "BAR #"I 

150 INPUT "HOW MUCH";A(T) 

160 IF A(I) > MAX THEN MAX = A(T) 

170 INPUT "COLOR (1-16) ";F (TI) 

180 IF F(I) < 1 OR F(I) > 16 THEN 170 
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190 NEXT I 

200 PRINT "USE THIS DATA?" 

210 GET KEY AS 

220 IF AS = "N" THEN RUN 

230 GRAPHIC 1 

240 SCNCLR 

250 COLOR 1,1 

260 CHAR ,0,0,US,1 

270 FOR I =1TOD 

280 A(I) = 190 - A(I) / MAX * 170 

290 COLOR 1,F(I) 

300 BOX ,I * 38 — 24,A(I),I * 38,190,0,1 

310 DRAW ,1*38-24,A(I) TO I*38-18,A(I)-6 TO I*38 
+ 6,A(I)-6 TO I*38 + 6,184 TO I*38,190 

320 DRAW ,I * 38,A(I) TO I * 38 + 6,A(I) - 6 

330 NEXT I 

340 GET KEY AS 

350 GRAPHIC 0 

360 SCNCLR 

370 PRINT "(O) OLD GRAPH" 

380 PRINT "(N) NEW GRAPH" 

390 PRINT "(X) EXIT" 

400 GET KEY AS 

410 IF AS = "X" THEN END 

420 IF AS "O" THEN GRAPHIC 1: GOTO 340 

430 IF AS "N" THEN RUN 

440 GOTO 370 
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2.4 FUNCTION PLOTTER 


Who hasn't wished for smooth arcs? Maximum - minimum curve 
representations? The endless mysteries of a tangent? This program is a 
complete curve plotter. It takes your input, and plots it: 


10 REM FUNCTION PLOTTER 

20 GRAPHIC 0,1 

30 DEF FN Y(X) = COS (X) 

40 INPUT "BEGINNING FUNCTION RANGE ";A 
50 INPUT "ENDING FUNCTION RANGE ";E 

60 IF A = > E THEN 40 

70 INPUT "REGISTER X-VALUE ";Al1 

80 INPUT "REGISTER Y-VALUE ";E1 

90 IF Al = > El THEN 70 

100 S = (E - A) / 320 

110 S2 = (E1 - Al) 

120 GRAPHIC 1,1 

130 FOR I = 0 TO 319 

140 A=A+S 

150 xX = 200 -— ( FN Y(A) - Al) / S2 * 199 
160 IF X = < 199 AND X = > O THEN DRAW 1,I1,X 
170 NEXT I 

180 GET KEY AS 

190 GRAPHIC 0 


After RUNning the program, it prompts you for four values: the range in 
which the function will begin and end (be sure it's only as big as your 


screen); the X-register (-5 to 9); and the Y-register (0 to 9). 


If you wish to explore other functions, change line 30. To get a sine wave, 
do this: 


30 DEF FN Y(X)= SIN (X) 
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This will not calculate in degrees, but in radians (360 degrees are exactly 2 * 
PI radians). Two ground rules: X- value must be no less than 0 and no 
more than 3.1415; and the Y-value can only be between -1 and 1. 


2.5 WINDOWS 


Windows are the newest buzzword in computerese. No new computer, no 
new BASIC, is without this feature; and the C-128 is no exception. 
Unfortunately, you only get one window on the C-128; but it is possible to 
get multiple windows with a little finagling. 


2.5.1 HOW TO DO WINDOWS 


You've learned from your handbook that a window can be set up in direct 
mode; no problem there, but how do you find it? The borders of the 
window can be found by moving the cursor around. The simplest method 
to get out of the window space is to use <RUN-STOP/RESTORE>, which 
dumps the window. These methods have the disadvantage of stopping a 
running program. We have an answer. Isn't a window just a small screen, 
and a screen an enlarged window? Well, we could conceivably draw the 
window to fit the screen: 


WINDOW 0,0,79,24 (80-col. screen) 
WINDOW 0,0,39,24 (40-col. screen) 
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2.5.2 READING WINDOW COORDINATES 


You have already heard of the command RWINDOW. You can determine 
the row (RWINDOW(0)), column (RWINDOW(1)) and character mode 
(RWINDOW(2)). If you want complete coordinates, you'll need to handle 
the matter a bit differently. Zero page memory has four extra bytes in which 
the coordinates for the current window are stored; these are addresses 
228-231: 

10 WINDOW 1,11,20,22 

20 PRINT "BOTTOM BORDER: "; PEEK (228) 

30 PRINT "TOP BORDER: "; PEEK (229) 


40 PRINT “LEFT BORDER: "; PEEK (230) 
50 PRINT "RIGHT BORDER:"; PEEK (231) 


To experiment with this program, hit RUN-STOP/RESTORE and change 
the window parameters. 


2.5.3 SETTING UP ALTERNATE WINDOWS 


We mentioned earlier that the screen can only have one window, as 
indicated by locations 228 ($E4) to 231 ($E7). Here are the default values: 


228 (SE4) 224 

229 (SE5) : 0 

230 (SE6) : 0 

231 (SE7) :79 (80-col. mode) 
>39 (40-col. mode) 
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Now, if you type in WINDOW 1,2,3,14 -- those values will change to: 


228 (SE4) :14 
(229 (SES) 
230 (SE6) 
231 (SE7) 


(regardless of screen size) 


You can manage machine language programming of windows, just by 
altering 228 to 231 decimal. POKE 228,10, for example, sets the bottom at 
10. 


A word of warning: You will run into problems if you try making 
windows larger than the screen. 


2.5.4 VERTICAL SCROLLING 


The WINDOW command allows you to produce vertical scrolling without 
hassles. The program looks like this: 


10 INPUT "TEXT";AS 

20 INPUT"SPEED";G 

30 WINDOW 10,10,10,20 
40 FOR I=1TO LEN(AS) 
50 PRINT MIDS (AS,I,1) 
60 FOR T=1 TO G 

70 NEXT T 

80 NEXT I 

90 GOTO 40 
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The window width is reduced to one, so the characters scroll beneath one 


another. Unfortunately, this system doesn't work with an pre-established 
window. 


2.5.5 THE WINDOW AS INPUT LINE 


This program makes it easy to limit the user's access to the cursor keys, and 
keep the user in the confines of an input line. 


S REM F = 39 (40 COL.) F = 79 (80 COL.) 
10 REM INPUT LINE 
20 PRINT CHRS$(27);"M":REM scrolling stopped 
40 PRINT"NAME?"; 
50 OPEN 1,0 
60 WINDOW PEEK (236) , PEEK (235) , F, PEEK (235) ,1 
70 INPUT#1,AS$ 
80 CLOSE 1 
90 WINDOW 0,0,F,24 


NOTE: The constant F (lines 60 & 90) should be replaced with 39 (40-col. 
screen) or 79 (80-col.). 


Address 236 has the present column, and 235 the current line. 
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2.5.6 PRINT AT WITH WINDOWS 


Many books and magazines have written about simulating PRINT AT on 
the C-64. The C-128 has a command called CHAR, used to simulate 
PRINT AT. But this isn't always the best method -- for example, you can't 
control the length of the output. Also, there might be control characters in 
the string to be printed. If you use the WINDOW, you'll come out ahead: 

5 REM F = 39 (40 COL.) F = 79 (80 COL.) 

10 REM PRINT AT WITH WINDOWS 

20 INPUT"ROW"; RW 

30 INPUT"COLUMN";CL 

40 INPUT"LENGTH"; LN 

50 F=PEEK (231) 

55 PRINT CHRS (27) ;"M":REM SCROLLING STOPPED 

60 WINDOW CL, RW, CLt+LN, LINE 


65 PRINT"HELLO" 
70 WINDOW 0,0,F,24 


The variable F again represents the screen width. The system automatically 
figures the mode out at line 50. 


2.5.7 CLEARING A PARTIAL SCREEN 


One part of the WINDOW command we haven't touched on is its ability to 
clear window contents. You have your choice of two methods: 


A. 10 WINDOW 10,10,20,20:PRINT" (CLR/HOME) " 
B. 10 WINDOW 10,10,20,20,1 
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The uses are clear for this. We may want to erase the window, so that we 
can use the screen for other things. On the other hand, you may want to 
just clear the lower half of the 40-column screen: 


10 WINDOW 0, 12, 39, 24, 1 
20 WINDOW 0, 0, 39, 24(, O) 


You can, of course, use these commands in direct mode. Just type it in one 
line, separating the two commands with a colon (:). 


2.5.8 SECURING WINDOW CONTENTS 


Let's say you're in the middle of a word processing program. You've filled 
the entire screen, and now you want to save the text. You go to the main 
menu, which appears in a screen window. Good software will still retain 
the text under the window, and even let you go back to the text, erasing the 
window. The WINDOW command on the 128 doesn't do this. 


Now, once the window is cleared, the contents are lost forever. What to 
do? We can make the window simulate a 40-column screen: 


10 REM SAVE SCREEN WHILE USING WINDOWS 
20 GRAPHIC 0,1 

30 REM WRITE SOMETHING ON SCREEN 

40 FOR I = 1024 TO 2024 

50 POKE I,J 

60 J=J+1 

70 IF J > 255 THEN J = 0 

80 NEXT I 

90 X1 = 5: REM DEFINE WINDOW 
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100 X2 = 12 

110 xX3 = 35 

120 xX4 = 22 

125 REM SAVE CONTENTS UNDER WINDOW 
130 GOSUB 60000 

140 REM USE WINDOW 

150 WINDOW X1,X2,X3,X4,1 

160 INPUT "TEXT";AS 

170 REM RETURN SCREEN TO NORMAL 
180 WINDOW 0,0,39,24,0 

190 GOSUB 60090: REM RECALL INFO 
200 GET KEY BS 

210 GRAPHIC O,1 

220 END 

60000 REM SAVE SCREEN UNDER WINDOW 
60010 DIM X(350) 

60020 FOR I = X2 TO X4 

60030 FOR J = X1 TO X3 

60040 X(Z) = PEEK (I * 40 + J + 1024) 
60050 Z2=2+1 

60060 NEXT J 

60070 NEXT I 

60080 RETURN 

60090 REM RECALL SCREEN 

60100 Z= 0 

60110 FOR I = X2 TO X4 

60120 FOR J = X1 TO X3 

60130 POKE I * 40 + J + 1024,X(Z) 
60140 Z2=2+1 

60150 NEXT J 

60160 NEXT I 

60170 RETURN 


Tricks and Tips for the C-128 


The interesting part of this program starts at line 60000. Line 60010 defines 
an array called X(). The array size is dependent on the size of the windows. 
If you use this routine in your own programs, make sure no other arrays or 
variables exist with this name. If you give the coordinates for one window, 
you can put this value directly in the loop instead of using variables. If you 
use several windows you should use variables. 
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Like all BASIC programs, this one has a small disadvantage: It's too slow. 
Here's a second version, in machine language: 


1400 A5 E7 LDA S$E7 :sRight window border 
1402 18 CLC 

1403 E5 F6 SBC SE6 sMinus left border 

1405 85 FF STA SFF s=length of window 

1407 E6 FF INC SFF :Length=length+1 

1409 AS 04 LDA #$04 :Screen start 

140B 85 FC STA SFC sstore 

140D A2 00 LDX #$00 

140F 8A TXA 

1410 E4 E5 CPX SE5 ><SE5 = 1st window line? 


1412 FO OB BEQ $141F :YES--then $141F 
1414 E8 INX 

1415 18 CLC 

1416 69 28 ADC #S28 :Next line 

1418 90 F6 BCC $1410 :Still not all 


141A E6 FC INC SFC sRaise high-byte pointer 
141C 4C 10 14 JMP $1410 

141F 18 CLC 

1420 65 E6 ADC SE6 :Window start - low 

1422 90 02 BCC $1426 

1424 E6 FC INC SFC :Raise high-byte by 1 
1426 85 FB STA SFB :Store low-byte 

1428 85 FD STA SFD sin SFB and S$FD 

142A A5 FC LDA SFC :High-byte 

142C 69 F7 ADC #$11 :17 there 

142E 85 FE STA SFE sand in high-byte of the 
1430 AO FF LDY #SFF :2nd counter 

1432 C8 INY 


1433 AD 6B 14 LDA $146B :Read or write? 
1436 DO 1A BNE $1452 :Write 


1438 Bl FB LDA(SFB),Y :Char. on screen 

143A 91 FD STA(SFD),Y :Store 

143C C4 FF CPY SFF  :Y-reg = length? 

143E DO F2 BNE $1432 :UNEQUAL--continue 
1440 E8 INX 

1441 E4 E4 CPX SE4 :X-reg = bottom edge? 


1443 90 14 BCC $1459 :smaller 
1445 AD 6B 14 LDA $146B :Written or read? 
1448 DO 04 BNE $144E :Written, read next 
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144A 
144D 
144E 
1451 
1452 
1454 
1456 
1459 
145B 
145C 
145E 
1460 
1462 


1464 
1466 
1468 
146B 


Here's the BASIC loader for the window saving routine. 
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EE 6B 14 INC $146B 


60 RTS >-Back to BASIC 

CE 6B 14 DEC $146B 

60 RTS >Return to BASIC 
Bl FD LDA(SFD),Y :Char. from memory 


91 FB STA(SFB),Y :written to screen 
4C 3C 14 JMP $143C 
A5 FB LDA SFB sLow-byte in accumulator 
18 CLC 
69 28 ADC #528 >Next line 
90 04 BCC $1464 :No overflow 
E6 FC INC SFC :Raise high-byte by 1 
E6 FE INC SFE :-Raise high-byte of 2nd 
counter by 1 
85 FB STA SFB :Low-byte in 1st counter 
85 FD STA SFD :Low-byte in 2nd counter 
4C 30 14 JMP $1430 
OO BRK :Byte for read (0) 
or write (1) 


A sample 


program has been included with the BASIC loader to demonstrate the speed 


of the routine. 
0 GOTO 180 
10 REM TEST PROGRAM 
20 GRAPHIC 0 
30 FOR I = 1024 TO 2023 
40 POKE I,A 
50 A=Atil1 
60 IF A > 255 THEN A = 0 
70 NEXT I 
80 WINDOW 10,10,20,20 
90 SYS 5120 
100 PRINT "{CLR HOME}" 
110 GET KEY AS 
120 PRINT AS; 
130 IF AS < > CHRS (13) THEN 110 
140 SYS 5120 
150 WINDOW 0,0,39,24 
160 GRAPHIC 0 
170 END 
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NN 
REM ROUTINE SAVE WINDOW 


180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 


FOR I = 5120 TO 5227 

READ A 

S=S+A 

POKE I,A 

NEXT I 

IF S$ < > 16107 THEN BEGIN 

PRINT "?ERROR IN DATA" 

END 

BEND 

GOTO 10 

DATA 165,231,24, 229,230,133, 255,230 
DATA 255,169, 4,133,252,162,0,138 
DATA 228,229,240,11,232,24,105, 40 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


144,246,230, 252,76,16, 20,24 
101,230,144, 2,230, 252,133,251 
133,253,165, 252,105,17,133,254 
160, 255,200,173, 107,20, 208, 26 
177,251,145, 253,196,255, 208, 242 
228,228,232,144,20,173, 107,20 
208,4,238,107,20, 96, 206,107 

20, 96,177, 253,145,251, 76, 60 
20,165,251, 24,105,40,144, 4 
230,252,230, 254,133,251, 133,253 
76,48,20,0 


The routine itself begins at line 180. The first section contains the sample 
program. The window in which you to read and write text must always be 


active. 
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2.5.9 SIMULATING SEVERAL WINDOWS 


We can simulate a number of windows with the help of the BASIC program 
in Chapter 2.5.8: 


10 REM SAVE WINDOW CONTENTS 
15 DIM X(40, 30) 
20 GRAPHIC 0,1 


30 REM FILL SCREEN WITH TEXT 

40 FOR I = 1024 TO 2024 

50 POKE I,J 

60 JI=dItil 

70 IF J > 255 THEN J = 0 

80 NEXT I | | 

85 REM PUT 40 WINDOWS ON SCREEN 
90 FOR K = 0 TO 39 

100 Xl = INT ( RND (1) * 25) + 5 
110  xX2 = INT ( RND (1) * 14) + 3 


115 REM SAVE CONTENTS UNDER WINDOW 
120 GOSUB 60000 

130 WINDOW X1,X2,X1 + 4,X2 + 3 

140 FOR W= 1 TO 20: REM PRINT #'S IN WINDOW 
150 PRINT CHRS (K + 48); 

160 NEXT W 

165 NEXT K 

170 REM TAKE OFF WINDOWS ON SCREEN 
180 FOR K = 39 TO 0 STEP - 1 

190 X1 = X(K,29) 

200 X2 = X(K,30) 

210 WINDOW X1,X2,X1 + 4,X2 + 3 

215 REM REPLACE CONTENTS 

220 GOSUB 60090 

230 NEXT K 

240 GET KEY AS 

250 GRAPHIC 0,1 

260 END 

60000 REM MEMORIZE CONTENTS UNDER WINDOW 
60010 Z = 0 

60020 FOR I = X2 TO X2 + 3 
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60030 
60040 
60050 
60060 
60070 
60074 
60076 
60080 
60090 
60100 
60110 
60120 
60130 
60140 
60150 
60160 
60170 


FOR J = 
X(K,Z) = 
Z=Z+t 
NEXT J 
NEXT I 
X(K,29) = 
X(K,30) = 
RETURN 
REM RECALL CONTENTS 

Z= 0 

FOR I = X2 TO x2 + 3 

FOR J = X1 TO X1 + 4 

POKE I * 40 + J + 1024,X(K,2Z) 
Z=Z+1 

NEXT J 

NEXT I 

RETURN 


X1 TO X1 + 4 
PEEK (I * 40 + J + 1024) 


-— 


First, a screen is displayed, then 40 windows are produced, then the 
windows are cleared. The final result is the starting screen. 


This program shows you how to use multiple windows. Using multiple 
windows in your own programs entails writing individual routines for each 
window. 


The program works with 40 windows, the largest number possible in 
C-128 variable memory. The array X() uses 40 * 1004 bytes (40 refers to 
the number of windows, of course). If you use fewer in your program, 
decrease the number proportionately. 


It's possible to extend a window over the entire screen. This would require 


1000 bytes for screen contents, and four for window coordinates, resulting 
in 1004. Again, a smaller window requires a smaller number. 
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2.6 SPRITE HANDLING 


Another indicator of BASIC 7.0's versatility is its sprite handling 
commands. The sprite generating and editing features make sprite work 
very easy (as opposed to the C-64, where sprite handling is made very 
difficult with BASIC 2.0). | 


It goes without saying that games make up the majority of sprite 
applications. You can also use sprites instead of regular characters (see 
Chapter 3.5). The next program was designed for just that; it copies the 
character of your choice into the sprite editor, where you can make your 
own lettering (eight sprites are available). | 


5 REM 2.6A a 

10 REM CHAR. COPIER TO SPRITE 
20 INPUT "WHICH SPRITE";S 
30 IF S < 1OR.S > 8 THEN 20 
40 INPUT "COL (0-13) ";Z 
50 IF Z< 0OR Z> 13 THEN 40 
60 INPUT "ROW (0-2) "Y¥ 
70 IF Y < 0 OR Y > 2 THEN 60 
80 REM ERASE SPRITE 
90 FOR I = 0 TO 62 
100 BS = BS + CHRS (0) 
110 NEXT I 
120 SPRSAV BS,S 
130 IF Z = 0 AND Y = 0 
140 FOR I= 1 TO Z * 3 
150 AS = AS + CHRS (0) 
160 ‘ NEXT I 

170 INPUT “INPUT CHAR. CODE ";C 
180 FORI=cC* 8 TOC * 8 +7 
190 A= 0 7 
200 FOR J = O TO 7 
210 BANK 14 | 
220 F = PEEK (53248 + I) 


TH 
+ 
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230 IF (F AND 2 %* J) = 2° J THENA=A+42%°% J 
240 NEXT J 

250 AS = AS + CHRS (A) + CHRS (0) + CHRS (0) 
260 NEXT I 

270 SPRSAV AS,S 

280 REM SPRITE IMAGE GENERATOR 

290 POKE 842,48 + S 

300 POKE 843,13 

310 POKE 208,2 

320 SPRDEF 


You need to enter the screen code of the character you want. After you've 
done that, the system copies the character into the SPRDEF mode, where 
you have sprite commands at your fingertips. Then again, there isn't a 
whole lot you can do with a character built within an 8X8 matrix; the 
majority of the sprite field is left unused. The second program doubles the 
size of the sprites, allowing you to use multicolor mode, and, for instance, 
make a sprite with a shadow trailing behind it. 


10 REM DOUBLE SIZE CHAR COPY TO SPRITE 
20 INPUT "WHICH SPRITE";T 

30 IF T < 1 ORT > 8 THEN 20 

40 INPUT "COL. (0-5) ";2Z 

50 IF Z< 0 OR Z> 5 THEN 40 

60 INPUT "ROW (O-1) ";Y 

70 IF Y < 0 OR Y > 1 THEN 60 
80 REM SPRITE ERASE 

90 FOR I = 0 TO 62 

100 BS = BS + CHRS (0) 

110 NEXT I 

120 SPRSAV BS,T 

130 IF Z = 0 AND Y = O THEN 170 
140 FORIT=1T02Z2%* 3+Y 

150 AS = AS + CHRS (0) 

160 NEXT I 

170 INPUT "INPUT CHAR CODE nS 
175 REM CHAR COPIER 

180 FOR IT=S * 8 TOS * 8 + 7 
190 A(0O) = 0 | 
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(53248 + I) 


IF (F AND 2 *% (J + Q * 3)) = 2% (39 + Q * 3) 
THEN A(Q) =A(Q) 


NEXT Q 
NEXT J 


AS = AS + CHRS 
AS = AS + CHRS (A(1)) + CHRS (A(0)) +CHRS (0) 


NEXT 1 


SPRSAV AS,T 
REM ACTIVATE SPRITE IMAGE GENERATOR 


POKE 842,48 + T 


POKE 843,13 
POKE 208,2 


SPRDEF 


+ 22°°- GS * 2) Zod. ® 2a) 


(A(1)) + CHRS (A(0)) +CHRS (0) 


2.6.1 DESIGN IN LISTING 


One thing is a little puzzling about sprites: where are the sprite contents 


going to be stored? We've designed the two following programs to fix that 


problem. The first program reads DATA statements to form a sprite. That 


is, there's no DATA per se, but rather strings, they are faster and simpler 


for the computer to handle, and changes are easily made on these sprites. 


Like most of the BASIC listings, this one, too, is slow; but it beats buying a 


program. 


REM DESIGN IMAGE LISTING 1 
INPUT "HOW MANY SPRITES";5S 
POKE 53296,1 


FOR T = 
AS — iw 


1 -TO' So: 


REM SET FAST MODE 
PRINT "READING IN SPRITE #"T 
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60 FOR G = 0 TO 20 

70 READ BS 

80 IF LEN (BS) < 24 THEN BS = BS + ".": GOTO 80 
90 FOR I = 0 TO 2 

100 A= 0 

110 FOR J = 0 TO 7 

120 IF MIDS (BS,1I*8+J3+1,1) ="*" THEN A =A+2%*(7-J) 
130 NEXT J 

140 A$ = AS + CHRS$ (A) 

150 NEXT I 

160 NEXT G 

170 SPRSAV AS,T 

180 SPRITE T,1,T,1,1,1,0 

190 MOVSPR T,T * 10#T 

200 NEXT T 

210 POKE 53296,0 

1000 REM 012345678901234567890123 
1010 DATA *xxxxxkxkxkx 

1020 DATA *xxxxxxxx 

1030 DATA xxx 

1040 DATA ..**x*xx 

1050 DATA 0 RKKKKK 

1060 DATA 0 RKKKKK 

1070 DATA RK KKKKKKKKKEK 

1080 DATA RK KKKKKKKKKK KK 

1090 DATA ..... KKKKKKKKKKKKKKKK 
1100 DATA cece. KAKKKKKKKKKKKKKKK 
1110 DATA ....rcace KKKEKKKKKKKKKKKKKK 
1120 DATA ...ccac KKKKKKKKKKKKKKEKK 
1130 DATA. << «:<-%-< KKKKKKKKKKKKKKEKK 
1140 DATA RK KKKKKKKKKKKK 

1150 DATA RK KKKKKKKEKKK 

1160 DATA ....****xx 

1170 DATA KK KKKEK 

1180 DATA ..***xxx* 

1190 DATA ,*x**xxkx 

1200 DATA **xxxx*X 

1210 DATA *x*x*xxxkxkx 

(1220 REM 012345678901234567890123 


As you can see from the listing, a set bit in a sprite is shown as an asterisk, 
and an unset bit a period. 
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While the data is being read in, the clock frequency is doubled (FAST), 
which increases execution time, but turns off the 40-column screen. When 
the routine finishes, the screen returns to normal, and a sprite is displayed 
on the screen. 


Not every program uses this method of reading sprites as DATA statements, 
sO we wrote the second program in this chapter, which automatically cranks 
out DATA statements. 


180 
190 


REM DESIGN IMAGE LISTING 2 
INPUT "HOW MANY SPRITES";S 


FOR T = 1 TOS 

FOR G = 0 TO 62 STEP 3 

BS — wre 

FOR I = 0 TO 2 

FOR J = 7 TO 0 STEP - 1 

IF (PEEK (3520+G+I+T*64) AND 2%J) = 2°J THEN 
BS = BS + "*":; ELSE BS = BS + "." 

NEXT J 

NEXT 1 


PRINT STRS (10000 + G + 100 * T);" DATA";BS 
PRINT "GOTO 170{CRSR UP} {CRSR UP}{CRSR UP}";: 
REM 3*CURSOR %* 
POKE 842,13 

POKE 843,13 

POKE 208, 2 

END 

NEXT G 

NEXT T 

REM DATA AT 10100- 


Once the routine is done, remove the old DATA lines with the DELETE 
command. 
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2.6.2 COMFORTABLE SPRITE EDITING 


After defining a sprite, you might like to alter it. For example, you've 
designed a spaceship, and you discover that it wasn't that great a design. 
Instead of redoing it completely, just run it through this program. Ah, but 
there's more -- it can also expand the sprite in two axis AND rotate the 
sprite. 


10 REM *x*xkxkxkkKKKKKKKK SPRITE-HANDLING 
20 DIM B(600) 

30 DIM A(62) 

40 REM *KKKKKKKKAKKKKKK MENU 

50 INPUT "COLOR 1";F 

60 INPUT "COLOR 2";D 

70 INPUT "COLOR 3";E 

80 SPRCOLOR D,E me | 

90 PRINT "1 : VERTICAL MIRROR" 


100 PRINT "2 : HORIZONTAL MIRROR" 

110 PRINT "3 : ROTATE 180 DEG." 

120 PRINT "4 : DISPLAY SPRITE" 
~130 PRINT "5 : INVERT" 

140 PRINT "6 : ROTATE 90 DEG." 

150 PRINT "7 ROTATE 270 DEG." 


160 INPUT "COMMAND" ;B 
165 IF B = 0 THEN END 
170 IF B < 1ORB> 7 THEN GOTO 10 
180 INPUT "SPRITE-NUMBER ";S 
190 IF S < 10ORS > 9 THEN GOTO 180 
200 IF B<5 THEN INPUT"MULTICOLOR (ON=1/OFF=0) ";M 
210 : ELSE M = 0 
220 POKE 53296,1 
230 IF B > 3 THEN 270 
240 FOR I = 0 TO 62 | 
250 A(I) = PEEK (3520 + S * 64 + T) 
260 NEXT I 
270 ON B GOSUB 360, 430,560,420, 600, 830, 650 
280 REM **x*xxx*x*x SPRITE VERTICAL MIRROR 
290 POKE 53296,0 
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300 GRAPHIC 0,1 

310 SPRITE S,1,F,1,1,1,M 

320 MOVSPR S,100,100 

330 GET KEY AS 

340 SPRITE S,0 

350 GOTO 90 

360 REM **xxx*xxx*xxk*k*k VERTICAL MIRROR 
370 FOR I = 0 TO 60 STEP 3 

380 FOR J = O TO 2 

390 POKE 3520 + S * 64 + I + J,A(60 - I + J) 
400 NEXT J 

410 NEXT I 

420 RETURN 

430 REM *x*xxxxxk*kkkk HORIZONTAL MIRROR 


440 FOR I = 0 TO 60 STEP 3 
450 FOR J = 0 TO 2 
460 W= 0 


470 FOR X = M TO 7 STEP M+1 

480 IF (A(I+2-J) AND 2%X) =2*°X THEN W = Wt+2% (7-X) 

490 IF M =1 AND (A(I +2-J) AND 2%(X-1)) = 2% (X-1) 
THEN W = W+2*(7-(X-1)) 

500 NEXT X 

510 A(I+2- J) =W 

520 POKE 3520 + S * 64 + 1+ J,A(I + 2 - J) 

530 NEXT J 

540 NEXT I 

550 RETURN 

560 REM *xxxxxxx*k ROTATE 180 DEG. 

570 GOSUB 360 

580 B=2 

590 GOTO 240 

600 REM KKAKKKKKKKKKKKK TNVERT 

610 FOR I = 0 TO 62 

620 POKE3520+S*64+1, 255AND (—-PEEK (3520+S* 64+) -1) 

630 NEXT I 

640 RETURN 

650 REM *x*xxxxxx* ROTATE 270 DEG. 


660 FOR I = 0 TO 20 
670 FOR J = 0 TO 2 
680 FOR G = 0 TO 7 


690 B((I*3+J) *8+7-G) = (PEEK (3520+S*64+I*3+J) 
AND 2%G)/2°G 
700 NEXT G 
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710 
720 
730 
740 
750 
760 
7170 
780 


790 
800 
810 
820 
830 
840 
850 
860 


POKE 3520 + S * 64 + I * 3 + J,0 


NEAT J 

NEXT I 

FOR I = 0 TO 2 
FOR J = 0 TO 20 
FOR G = 0 TO 7 


IF B(I * 192 + J + (7 - G) * 24) = 0 THEN 790 
POKE 3520+S*64+I+(20-J) *3, 

PEEK (3520+S*64+1+(20-J)*3) OR 2%G 
NEXT G 

NEXT J 

NEXT I 

RETURN 

REM ****xx*xx*kx*k ROTATE 90 DEG. 
GOSUB 650 

B= 2 

GOTO 240 


During the recalculation, the 40-character screen flickers a lot, which tells us 
that the "high speed" mode (FAST) is on again. The system will return to 
normal when the program is finished, and the new sprite is displayed on the 


screen. Pressing any key will return you to the menu. 


Here's a quick rundown of the functions: 


i 


Mirroring 
The sprite will be turned upside-down. The point DATA will 
not be inverted. 


. Mirroring by axis. 


Hard to describe; splits inverted sprite. 


- Turn 180 Degrees 


Self-explanatory. 
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4. Display Sprite 
This lets you see the sprite at any time. 


5. Reverse 
Not to be confused with mirroring -- the sprite comes up as a 
"negative" (i.e., reverse video). Multicolor mode is not in 
this program, but you can still use the sprite in that mode. 
later. 


6. Turn 90 Degrees 
Self-explanatory. 


7. Turn 270 Degrees 
Self-explanatory. 


C. Copy sprite 
Self-explanatory. 


Final note: Pressing "C" copies the original sprite, so you have a backup if 
you destroy your original during experimentation. 
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USEFUL PROGRAMS 


The next few pages contain programs designed to help you in your 
everyday computing. We've made them fairly simple, so you can make any 
changes appropriate to your work. Have fun! 


3.1 ERROR HANDLING 


"The first step is the hardest" is a well-known maxim. A fellow named 
Murphy said it best: "If something can go wrong, it will." Both these 
sayings seem to apply to the programmer. In the beginning phases of 
programming, we say to ourselves, "What are all these error messages?" 
The more advanced programmer has the advantage of knowing some of the 
error messages, but he still ends up doing a lot of debugging. 


Some BASIC versions have a HELP function, and the C-128 is no 
exception. This function finds the errant line, and shows the error in 
reverse video (40-column mode) or underscoring (80-columns). You can 
also use the command within a BASIC program. 


Although the C-128 has no ON ERROR GOTO command, it does have a 


TRAP command. Type the command, followed by a line number, and an 
error will cause the system to jump to that line. 
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Next, we have the ERR$ variable. The variable ER stores the numbers of 
error, and PRINT ERRS$(ER) prints the corresponding error messages. 
Finally, there's the variable EL, which contains the line number of the "bad" 
line. 


If the program stops due to a TRAP command, there are three possible 
methods of continuing the program, all by means of the RESUME 
command. Typing in RESUME alone causes the computer to continue at 
the line where the error occurred. Giving a line number with RESUME 
causes the program to continue from the line specified. Finally, you can 
type in NEXT after RESUME; then the system starts from the line after the 
“bad” line. 


If you want to watch your program step-by-step, if only to see what the 
errors are doing, you have TRON and TROFF at hand. These control the 
TRACE function. 


Now for a some applications using these commands: 
1. For Beginners 


Type in this program. 


10 TRAP 1000 
20 : 

30 PRINT:PRIND: REM PRIND NOT PRINT 

40 PRINT CHRS (147)"(C) 1985 BY WERNER 

50 FOR T=1 TO 10:PRINT: NEXT Y 

60 PRINT"OK" 

70 END 

80 : 

1000 REM ERROR JMP 

1010 PRINT" (YEL 1)"ERRS(ER)" ERROR IN "EL; 
1020 HELP 
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1030 PRINT" (CRSR DOWN) (CYAN) 'G'O ON OR ‘'E'ND?" 
1040 GET KEY AS 

1050 IF AS="E" THEN END 

1060 IF AS="G" THEN RESUME NEXT 

1070 GOTO 1040 — 


The program jumps to line 1000 whenever it runs into an error (€.g., at line 
30) as a result of the TRAP command at line 10. The error trap routine 
gives you the type of error and the line number at which it occurred. That's 


all the routine does; it's up to you to find the error (HELP key) and correct 
it. | 


A tip for machine language programmers: You can develop an “error 
statement" program for machine language errors. The vector for printing 
BASIC errors is at locations $0300/$0301, and the error number is given in 
the X-register. The X-register presents the value $80 when no errors exist. 
On the next page are the errors and their values: 
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NUMBER (hex) : NUMBER (dec): ERROR 
SO1 1 :TOO MANY FILES 
$02 2 :sFILE OPEN 
$03 3 :FILE NOT OPEN 
S04 : 4 :FILE NOT FOUND 
$05 : 5 >DEVICE NOT PRESENT 
$06 : 6 :NOT INPUT FILE 
S07 7 :<NOT OUTPUT FILE 
$08 8 :MISSING FILENAME 
$09 : 9 : ILLEGAL DEVICE NUMBER 
SOA : 10 :NEXT WITHOUT FOR 
SOB : 11 > SYNTAX 
SOC : 12 :RETURN WITHOUT GOSUB 
SOD : 13 :OUT OF DATA 
SOE : 14 : ILLEGAL QUANTITY 
SOF : 15 : OVERFLOW 
$10 : 16 - :OUT OF MEMORY 
$11 : 17 :UNDEF'D STATEMENT 
$12 : 18 :BAD SUBSCRIPT 
$13 : 19 :REDIM'D ARRAY 
$14 : 20 :DIVISION BY ZERO 
$15 : 21 : ILLEGAL DIRECT 
$16 : 22 :TYPE MISMATCH 
$17 : 23 >STRING TOO LONG 
$18 : 24 ‘FILE DATA 
$19 : 25 >FORMULA TOO COMPLEX 
S1A : 26 :CAN'T CONTINUE 
$1B : 27 :UNDEF'D FUNCTION 
$1c : 28 : VERIFY 
S1D : 29 : LOAD 
S1E : 30 : BREAK 
S1F : 31 :CAN'T RESUME 
$20 : 32 : LOOP NOT FOUND 
S21 : 33 :LOOP WITHOUT DO 
$22 : 34 :DIRECT MODE ONLY 
$23 : 35 :NO GRAPHICS AREA 
$24 : 36 :BAD DISK 
$25 : 37 :BEND NOT FOUND 
$26 : 38 :LINE NUMBER TOO LARGE 
$27 : 39 : UNRESOLVED REFERENCE 
$28 : 40 : UNIMPLEMENTED COMMAND 
$29 : 41 :FILE READ 
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2. The Use of RESUME 


Typing RESUME without a line number or NEXT can result in an endless 
loop, which probably wasn't what the designers of BASIC 7.0 had in 
mind. Try this program out: 


1 TRAP 1000 
10 CATALOG 
20 END 


1000 IF ER=5 THEN PRINT CHRS(19);"PLEASE TURN 
DISK DRIVE ON": RESUME 
1010 END 


Turn your disk drive off and run the program, which looks for the disk 
directory. Since the drive is off, the system responds with "DEVICE NOT 
PRESENT" and jumps to line 1000. Seeing error number 5, the program 
asks you to switch the disk drive on. The RESUME command causes the 


program to continue displaying this message until the drive is finally turned 
on. 


Now for a sample of RESUME with a line number: 


1 TRAP 1000 

10 INPUT"FILLENAME";NAS 

20 INPUT"DEVICE NUMBER"; DV 
30 LOAD NAS,DV 

40 END 


1000 IF ER=4 THEN PRINT"THERE IS NO SUCH 
FILENAME":RESUME 10 

1010 IF ER=5 THEN PRINT"PLEASE TURN DISK DRIVE 
ON": RESUME 

1020 IF ER=8 THEN PRINT"PLEASE GIVE ME A 
FILENAME":RESUME 10 

1030 IF ER=9 THEN PRINT"PICK A DEVICE NR FROM 
8 - 15": RESUME 20 

1040 END | 
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Essentially, this little routine can make a program "foolproof". That is, it 
won't stop if you give it a bad filename, have your disk drive turned off, 
press <RETURN3> on the filename prompt, or give it a "non-disk" device 
address -- and it will tell you what the problem is, in simple English. 


3.2 LISTER - A LISTING UTILITY 


You've just spent your last dollar on a computer magazine. You run home, 
Switch on the computer, and start typing in page upon page of program 
listing. Wait a minute; there's something wrong here. The problem is, as 
in so many cases, the printout in the magazine is from a Commodore 
printer. You know what that means: Unreadable control characters -- 
what's this reversed heart? And this reverse-video cross? Eventually you 
give up and either buy the companion disk, or just stop buying the 
magazine. 


Some computer magazines have heard the cries of their readers. These 
publishers use a special listing technique to alter the program listing so that, 
instead of control characters, a descriptive term or abbreviation appear (e. g., 
"{CLR}" or "{5 DOWN}") in the listing. 


There's an advantage to this: It increases the marketability of the magazine. 
It's a lot easier for a user to just punch CRSR DOWN from the listing, 
rather than look at the graphic symbol, flip through the manual, figure out 
what that symbol actually does, then type it in. On the other hand, there's a 
greater frustration that isn't cured. How many spaces do I put here? Are 
there 39 or 40 (or 38)? How many CRSR DOWNs? And so on.... 
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Our LISTER fixes that problem: Any spaces and control characters in 
quotes and in number will be printed out with their amounts. Plus, each 
command will be separated by a space. This can be a godsend to the 
beginner. It's a lot easier to read; 


FOR ES = 1 TO P: W = PEEK (ES) AND NOT 5 OR 8 


than it is to read: 
FORES=1TOP : W=PEEK (ES) ANDNOT5OR8. 


The design of the printout is familiar to those of you who are also Apple 
users: Commands are indented, variables are not. 


Now for the program: Type it in and SAVE it with the name LISTER 
before trying it out. 


1 REM LISTING OF LISTER CHAPTER 3.2.A 

5 PRINT "{CLR HOME}PLEASE WAIT..." 

10 DIM TKS (255) , FES (29) ,CE$ (8) ,SZ$ (159) 

20 FOR Z = 0 TO 125: READ WES,AS: TKS$( DEC 
(WES)) = AS: NEXT Z 

22 FOR Z = 0 TO 27: # =READ WES,AS: FES$( DEC 
(WES)) = AS: NEXT Z 

24 FOR Z = 0 TO 7: =READ WES,AS: CES$( DEC (WES) ) 
= AS: NEXT Z 

26 FOR Z = 0 TO 25: READ WES,AS: SZS$( DEC 
(WES)) = AS: NEXT Z 

30 AN = 7168 

40 PRINT "{CLR HOME}'S'CREEN OR 'P'RINTER?" 

42 DR = 0: GET KEY AS: IF AS = "D" THEN DR = 
1: GOTO 50 

44 IF AS < > "B" THEN 40 

50 PRINT "{CRSR DOWN}'U'PPEROR'L'OWERCASE?" 
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52 GET KEY AS: IF AS = "L" THEN PRINT 
' CHRS (14): GOTO 60 
54 IF AS < > "U" THEN PRINT "{CRSR UP}";: 
GOTO 50 
60 INPUT "{LINE FEED}NAME OF THE PROGRAM"; NAS 
70 IF DR THEN CLOSE 4: OPEN 4,4,0 
72 PRINT : PRINT NAS: PRINT 
73 IF DR THEN PRINT# 4: PRINT# 4,NAS: PRINT# 4 
100 FL = 0: AN = AN + 3 
102 LO = PEEK (AN): AN = AN + 1: HI = PEEK (AN): 
ZE = LO + 256 * HI 
105 PRINT ZE;" "; 
106 IF DR THEN PRINT# 4,ZE;" "; 


110 AN = AN + 1 

115 WE = PEEK (AN): IF WE = O THEN 1000 
120 IF WE = 32 THEN 2000 

122 IF WE = 34 THEN 7000 

123 IF WE = 58 THEN 8000 

125 IF WE = DEC ("FE") THEN 3000 

130 IF WE = DEC ("CE") THEN 4000 

135 IF FF THEN 6000 

140 GOTO 5000 

999 : 


1000 REM NEW LINE 

1009 IF DR THEN PRINT# 4 

1010 PRINT : IF PEEK (AN + 1) = 0 AND PEEK (AN + 
2) = 0 THEN CLOSE 4: END 

1020 GOTO 100 


2000 REM EMPTY LINE 

2010 IF FF THEN 6030 

2020 IF FL THEN PRINT " "; 

2021 IF DR AND FL THEN PRINT# 4," "; 
2030 GOTO 110 


2999 
3000 REM SFE 
3010 AN = AN + 1: WE = PEEK (AN) 


3020 PRINT FES (WE);" "; 
3021 IF DR THEN PRINT# 4,FES(WE);" "; 
3030 GOTO 110 


3999 
4000 REM SCE 
4010 AN = AN + 1: WE = PEEK (AN) 
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4020 PRINT CES(WE);" "; 

4021 IF DR THEN PRINT# 4,CES(WE);" "; 

4030 GOTO 110 

4999 : 

5000 REM BEGINNING OF STRING 

5005 IF WE = 143 THEN FL = 1 

5010 IF TKS (WE) < > "" THEN 5040 

5020 PRINT CHRS (WE); 

5021 IF DR THEN PRINT# 4, CHRS (WE); 

5030 GOTO 110 

5040 PRINT " ";TKS(WE);" "; 

5041 IF DR THEN PRINT# 4," ";TKS(WE);" "; 

5050 GOTO 110 

5999 : 

6000 REM INNER PART OF STRINGS 

6005 IF WE < > 255 THEN 6010 

6006 PRINT "iz"; 

6007 IF DR THEN PRINT# 4,"%"; 

6008 GOTO 110 | 

6010 IF SZS(WE) < > "" THEN 6030 

6020 PRINT CHRS (WE); 

6021 IF DR THEN PRINT# 4, CHRS (WE); 

6025 GOTO 110 

6030 ZA = 1 

6040 IF PEEK (AN + 1) < > WE THEN 6060 

6050 AN = AN + 1: ZA = ZA + 1: GOTO 6040 

6060 PRINT CHRS (18);"[(";SZ$ (WE); STRS (ZA);"]"; 
CHRS (146); 

6061 IF DR THEN PRINT# 4," [";SZS (WE); STRS 
(ZA);")] "3 

6070 GOTO 110 

6999 : 

7000 REM QUOTATION MARK 

7010 FF = XOR (FF,255) 

7020 PRINT CHRS (34);: POKE 244,0 

7021 IF DR THEN PRINT# 4, CHRS (34); 

7030 GOTO 110 

7999 : 

8000 REM COLON 

8010 PRINT CHRS (58);" "; 

8011 IF DR THEN PRINT# 4, CHRS (58);" "; 

8020 GOTO 110 

9999 : 
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10000 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 


10200 


DATA 
"83 9 7 
DATA 
"88 | ; 
DATA 
| 8D A j 
DATA 
ve 92 hy P 
DATA 
v8 98 9 P 
DATA 
38 OD F 
DATA 
wA3 Py 
DATA 
WAS v8 ; 
DATA 
"BO i ’ 
DATA 
"RE" P 
DATA 
'RBC™ ’ 
DATA 
“CD I | , 
DATA 
"C8 iD P 
DATA 
LL a Bb | ; 
DATA 
"D4 v8 P 
DATA 
mmg9" ’ 
DATA 
VDE | ; 
DATA 
"h3 " ; 
DATA 
"Eh8 Ul 7 
DATA 
WED i P 
DATA 
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nimi 


"80", "END", wit > sue "FOR", "Qo ue "NEXT", 
"DATA", "84 Uy P w INPUT# v9 

"g5", v INPUT", "86", "DIM", "Q7 ue "READ", 
"LET", "gg", "COTO" 

v9 8A", "RUN", Tt] 8B", 19 TP", "OC a "RESTORE ae 
"GOSUB", "8E", "RETURN" 

"ORM, "REM", " 90", "STOP ee v9 91", "ON", 
"WAIT", "Q3 ur "TOAD aa "O4 ae "SAVE" 

"QOS ae "VERIFY", "OG", "DEF" ‘ "O7 ue "POKE", 
"PRINT#","99", "PRINT" 

1 oA", "CONT", ¥ 9B", "LIST", 1 oC", "CLR", 
"CMD mY 19 OB", "SYS". 19 OF", "OPEN" 

"AO we "CLOSE", WAT ie "GET", WA? a "NEW" ; 
"TAB ( e waa : STO", WAS a wen 

"AG", "SPC (=, WAT ie "THEN", "A8", "NOT", 
"OTEP ae "AA", ma "AB", 8 

wAC™, Le "AD", w/e, "AR", Ra "AF", "AND", 
"OR", "BI we ue dae "BR? dae oe 

"BS", ee "Bd ae "SGN", "BS", TINT: 

"ABS ae "R7 ae "USR", "RES Lae UPREN 

"BO", "POS", "BA", "SOR", "BB", "RND", 
"LOG", eBD weXpP Lie "BE", "COS" 

"BE", "SIN"; NCO", "TAN", Lr nd ae "ATN", 
"PEEK", "C3 mi "LEN", "C4 Lae "STRS 1 

NOS "VAL", NCO". "ASC, "CT sm "CHRS", 
"LEFTS a "CO"; "RIGHTS i] 

"CA" "MIDS es "CB. "GO", "CO; "RGR", 
"RCLR" ; wor" ; "JOY" ; "DO uP "RDOT" 

"Das "DEC", WD? ar "HEXS", "D3", "ERRS", 

vw INSTR", MmmSs i "ELSE" 

"D6", "RESUME", mp7" , "TRAP tS meg" ; "TRON", 
"TROFF", "DA", "SOUND" 

"DB", "VOL", MDC, "AUTO", "DD". "DUDEF ee 
"GRAPHIC", "DF", "PAINT" 

MEO te "CHAR", Le "BOX", LB a "CIRCLE" P 
"GSHAPE", "E4","SSHAPE" 

WES ie "DRAW", "h6", "TOCATE ie LB a ; "COLOR" ; 
"SCNCLR", "E9", "SCALE" 

NEA: "HELP ae "EB", "DO" s HEC "TOOP Le 
"EXIT", "EE", "DIRECTORY" 

"EE", "DSAVE", UFO a "DLOAD ae wep ; 


"HEADER", "F2", "SCRATCH" 
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10210 
10220 


10230 
11000 


11010 
11020 
11030 
11040 
11050 
12000 
12010 
13000 
13010 
13020 
13030 
13040 


13050 
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DATA "F3", "COLLECT", "F4","COPY","F5", 
"RENAME", "F6", "BACKUP", "F7", "DELETE" 
DATA wes iy y *™RENUMBER"™ r ur Qo" ’ "wKEY"™ ’ wRaAt ’ 
"MONITOR", "FB", "USING", "FC", "WHILE" 
DATA wED wv ; "UNTIL" ; he ce ch we ’ wa" 

DATA "OQ? we ’ "BANK" ’ 8 03 wy ’ "FITLTER" 7 WO4 v9 ; 
"DELAY" ’ WOs we P "TBEMPO" ’ wO 6" ’ "MOVSPR" 

DATA "07", "SPRITE", "08", "SPRCOLOR", 

"0 Qo" ’ "™RREG 88 P ue OA" P "ENVELOPE we 

DATA "0B", "SLEEP","0C", "CATALOG", "0D", 
"DOPEN", "OE", "APPEND", "OF", "DCLOSE" 
DATA ve 10", "BSAVE", pat el Ra "BLOAD", wiz" 
"RECORD", "13", "CONCAT", "14", "DVERIFY" 
DATA "15", "DCLEAR","16","SPRSAV","17", 
"COLLISION", "18", "BEGIN" 

DATA "19","BEND","1A","WINDOW", "1B", 
"BOOT", ve 1C ve ’ "WIDTH", ve LD we ’ *SPRDEF"™ 

DATA "OO ue P "RWINDOW" P ve 02 1 ’ "POT we ’ "03 08 ’ "RUMP ve ’ 
"O04 hy . "PEN" ’ wO5 vs P ™"RSPPOS we 

DATA "06","RSPRITE","07","RSPCOLOR", 
"OSs" ; "XOR"™ 

DATA "03","RUN STOP","05","WHT", 

"OA", "LINE FEED","11","CRSR DOWN" 

DATA "12","RVS ON","13", "HOME", 

se iC P "RED us ’ we iD", *™CRSR RIGHT" ’ ws 1E", "CRN" 
DATA we 1F" ’ "BLU" ’ "20", "SPACE" r "Qi" ’ "ORNG" ’ 
v8 90 we ’ "RLK"™ ’ ue 91", "CRSR UP ve 

DATA "92","RVS OFF","93","CLR HOME", 

ve 95" ’ "BRN" ’ "96", ue EP RED" 

DATA vw 97 "yy "T) GRY" ’ ve 98", uM GRY", wog" P a DP GRN", 
we 9A" ’ a BLU"™ 

DATA oe OB we ’ al GRY" ’ v8 9c" ’ "DpDUR"™ , 

oe 9D we ; "CRSR LEFT ue ’ ve OB we P wVEL" r we OF ue ; ve CYN" 


Now RUN it. 
parameters. For the moment, press "S" for screen and "U" for uppercase. 
Then enter "LISTER"; this isn't for loading from disk -- just a heading for 
the listing. If you typed the program in correctly, the system will print 


After a short wait, you'll be asked for some input 


"TISTER" on the screen and the program will be listed to the screen; 
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control characters should be spelled out in reverse on the screen. Next, 


Switch on your printer and run the program again to get a hardcopy listing 


of the program. 


When you want to use this program to print other listings, you'll need to do 


the following: 


A) Move the start of BASIC - set pointers $2D (45) and $2E (46) 


B) 


C) 


higher than the length of the program to be listed and place a zero in 
the first location of the new start of BASIC. Here are the 
commands we used: 


POKE 46, 192 : POKE 49152, 0: NEW 


This moves the start of BASIC to $C000. Try the FRE(0) function 
after typing in these commands, less than 16K is free. This is more 
than enough memory to run our converter program. 


LOAD the listing converter program with LOAD"LISTER", 8. 
The { ,8 } is important! This command loads the listing converter 
program into memory at the new start of BASIC. 


Load in the program you wish listed with the command LOAD 
“program-name" ,8,1. The { ,8,1 } is very important here. This 
command loads the program into memory at the normal start of 
BASIC. Because you have moved the start of BASIC the LISTER 
program 1s not overwritten. LIST the program to be sure. 


D) RUN the LISTER to get a formatted listing. 


112 


Abacus Software Tricks and Tips for the C-128 


You could revise the LISTER program so that it reads the program directly 
from disk, which would save the trouble of moving the start-of-BASIC. 
We tried that with the program listings in this book. They were transferred 
to this book with a modified version of the above program that used the 
RS-232 adapter to send the listing to another computer. The memory 
resident version is much faster. 


A few things you should know about the memory resident LISTER. It 
looks at and interprets every byte from the normal start of BASIC. If it 
finds a zero, it checks the next few bytes; a set of three zeroes indicates the 
end of the program, and the LISTER halts. Every character is tested to see 
if it is a token; if not, the character is tested for whether it is within quotes or 
not. Tokens are printed out as commands. Strings with color graphic 
symbols will have their colors "spelled out’. 


Here are a few of the variables used in the program: 


DR: If DR=0, the listing goes to the screen only; if DR=1, then 
it's sent to the printer and the screen. 

FL: If equal to 1, the characters are placed after a REM. 

AN: Address of bytes read. 

WE: Contents of the above address. 

FF: If 0, the byte is not in quotes; 1, the byte is a string (within 
quotes). 

ZA: Counter -- counts number of consecutive characters (lines 


6040-6070). Determines number of spaces in a string. 
TK$(255): Contains command strings of individual tokens. 
FE$(29); Contains command strings which have a value of $FE in the 
first byte. 
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CE$(8): Same as FE$, but for commands beginning with $CE. 
SZ$(159): Graphic character codes are held here. 


3.3 OLD 


What do you do if you accidentally type NEW while a program you haven't 
saved is in memory? No more program, right? Wrong. All is not lost. 
You'll remember the programs running around for the C-64 known by 
various titles (OLD or UNNEW); these programs renewed the bytes at the 
start of a program that had been zeroed out by an errant NEW command. 
These two bytes point to the next line number of a program (the address of 
the next line number, to be more specific). In addition to finding and 
resetting the starting address, the start-of-variables must be reset as well 
before the program can be completely recovered. 


These OLD routines are fairly long and inaccurate most of the time. There's 
a much easier way of going about it: 


A) Put any number into the two skipped bytes (unequal to 0, of 
course). This works best when you use the high-byte of 
start-of-BASIC. 


B) Next, call the BASIC interpreter routine that restores the BASIC 
program lines, and is usually used for inserting program lines in 
editing. It changes all the vectors (line links) and recalculates 
appropriately. The link to the first program line, which were zeroes 
a moment ago, are re-inserted into memory, and recalculated. 
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C) Start of variables is set at the end of the program. 
This process is much simpler on the C-128: Step C) can be eliminated, 
since variables are stored in Bank 1, and don't collide with Bank 0. You 
can activate OLD by doing this: 


POKE PEEK (45) +256*PEEK (46) +1,28:SYS DEC ("4F4F") 


Addresses 45/46 point to start-of-BASIC. Calling this routine restores the 
pointers. This is what it looks like in machine language. 


OBOO AO O1 LDY #S01 ,;Offset 1 

OBO2 AQ 1C LDA #S$1C 728 for BASIC RAM start 
OB04 91 2D STA ($2D),Y sand in link high-byte 
OB06 20 4F 4F JSR S4F4F  #£=;Determine links 

OBO9 60 RTS ;End 


You can put the routine anywhere in memory, not just at $0BO00. 


OLD also works if you've changed the BASIC pointers (say, for the 


conversion program in chapter 3.2). Not even a RESET can outsmart this 
program. 


There is one exception -- when start-of-BASIC is moved up and a RESET 
is executed; then OLD goes for the normal starting address of BASIC, and 
won't find it there. If you know where the starting address is, just change 
the parameters accordingly, and you should be able to recover the program. 
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3.4 A LITTLE MUSIC ON THE SIDE.... 


Some folks like music while they're typing. That's great, unless there's no 
radio or stereo nearby, and most of us aren't born singers. Hiring an 
in-house pianist can be expensive, and typewriters don't make music. The 
C-128, however, CAN make music. The next program actually plays a 
piece of music while you're working with the computer. You can listen 
through your television or monitor, or run it through your stereo, etc. 


The BASIC loader is a long one; the main reason is the 99-note tune within. 
To play a note, the SID chip needs two numbers per note 
(high-byte/low-byte) and a duration, which gives us a total of 297 DATA 
elements. You'll find this DATA at the end of the program. 


0 REM IRQ MUSIC 

10 FOR I = 5120 TO 5198 

20 READ A 

30 POKE I,A 

40 S=S +A 

50 NEXT I 

60 IF § <> 8891 THEN PRINT "?ERROR IN DATA":END 


70 DATA 120,169,22,141,20,3,169,20 

80 DATA 141,21,3,88,160,0 

90 DATA 140,243,20,200,140,241,20, 96 
100 DATA 206,241,20,208, 49, 72,141,0 
110 DATA 255,141,18,212,138,72,174, 243,20 
120 DATA 189,0,21,141,14,212,189,0 

130 DATA 22,141,15,212,189,0,23,141 
140 DATA 241,20,169,65,141,18, 212,232 
150 DATA 56,224,99,144,2,162,0,142 

160 DATA 243,20,104,170,104,76,101,250 
170 BANK 15 

180 POKE 54296,15 

190 POKE 54288, 255 

200 POKE 54289,0 
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210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
4770 
480 
490 
500 
910 
520 
530 
540 
950 
560 
570 
580 
590 
600 
610 
620 
630 


POKE 
POKE 
N = 


READ 
POKE 
READ 
POKE 
READ 
POKE 
NEXT 
POKE 


99: 
FOR I 


54291,15 

54292,0 

REM 99 NOTES 
= 0 TON - 1 
A 

5376 + 
A 

5632 + 
A 


5888 + 


I 
9185,N 


SYS 5120 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


10,13,5,10,13,5,10,13,10 
10,13,5,162,14,5,162,14,10 
247,10,10,10,13,5,10,13,5 
103,17,5,137,19,13,237,21,5 
237,21,10,237,21,5,237,21,10 
137,19,10,137,19,10,103,17,10 
103,17,20,237,21,5,237,21,13 
99,23,10,237,21,5,237,21,5 
237,21,13,137,19,30,237,21,8 
137,19,8,137,19,15,103,17,15 
103,17,30,103,17,13,10,13,5 
10,13,5,10,13,10,162,14,10 
103,17,5,10,13,5,10,13,10 
10,13,10,103,17,5,137,19,13 
137,19,5,237,21,13,237,21,10 
137,19,5,137,19,5,137,19,5 
103,17,10,103,17,5,103,17,20 
237,21,5,237,21,13,59,23,10 
237,21,5,237,21,5,237,21,13 
137,19,30,237,21,10,137,19,10 
137,19,10,103,17,15,103,17,30 
237,21,5,137,19,10,103,17,5 
103,17,20,237,21,5,20,26,10 
69,29,5,69,29,10,20,26,10 
20,26,5,20,26,10,237,21,5 
237,21,5,137,19,5,103,17,10 
162,14,5,10,13,10,237,21,5 
237,21,10,103,17,30,237,21,5 
237,21,10,59,23,5,59,23,10 . 
237,21,5,237,21,5,237,21,10 
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640 DATA 137,19,30,237,21,10,137,19,10 
650 DATA 137,19,10,137,19,13,103,17,13 
660 DATA 103,17,30,247,10,5,10,13,5 


This tune may bore you after a while, so we'll now give you some ground 
rules for putting in your own tunes. A song can have up to 255 notes, with 
every note entered in this format: 


Frequency (low-byte) 
Frequency (high-byte) 
Duration (how long it is to be held) 


You can choose your own notes. For example, we called up a frequency of 
3338 (in low/high format, 10 and 13) for a G. Our duration was 10 (like 
an average quarter note). Line 230 will have to be changed to adjust for 
your song length. When you want to change waveforms, put POKE 
7226,WF (waveform) at the end of the program. WF has the following 
functions: 


17 TRIANGLE WAVE 
33 SAWTOOTH WAVE 
65 PULSE WAVE 
129 NOISE 


This program operates voice three ONLY. You could convert the program 
to include the first and second voices of the SID chip. If you want to 
program this routine in machine language, we've included that listing 
below. This routine works with the IRQ vectors: 
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$1400 (5120) 
$1416 (5142) 
$14F1 (5361) 
$14F3 (5363) 
$1500 (5376) 
$1600 (5632) 
$1700 (5888) 


Routine which moves IRQ vectors to $1415 (5141) 
Start of music/IRQ routine till $144E (5198) 
Count duration; when 1CF1=0, go to next note 


Note counter 


Memory for low-byte of note to $15FF (5631) 
Memory for high-byte of note to $16FF (5887) 
Memory for all note values to $17FF (6143) 


Once you have a look at the commented listing, you'll have a good idea of 
the program's inner workings. You can use our BASIC loader, or type this 
in On your monitor: 


1400 
1401 
1403 
1406 
1408 
140B 
140C 
140E 


03 


03 


#516 
$0314 
#5314 
$0315 


#$00 
S14F3 


S14F1 
14F1 
144C 


SFFOO 
$D412 


$14F3 


$1500,X 


SD40E 


$1600, X 


SD40F 


$1700,X 


;Hinder interrupt 
,;Set IRQ vector to 
,;start of the 
;music routine 


;Enable interrupt 


,Return to BASIC 
,Decrement counter 
;Counter >0, then 
continue count 
,Accu on stack 
;switches I/0 
;Waveform = 0 

;X-reg into accumulator 
,Accu to stack 
sNumber for new note 
,Get note low byte 
;set low byte 

;Get high byte 

;Set high byte. 

;Get note value 
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1436 
1439 
143B 
1435 
143F 
1440 
1442 
1444 
1446 
1449 
144A 
144B 
144C 


8D Fl 14 STA $14F1 ;Set counter 

AQ 41 LDA #$41 ;Load waveform. 

8D 12 D4 STA $D412 ;Set waveform 

E8 INX ;Raise note counter 
38 SEC 

EO 63 CPX #$63 ;Last note? 

90 02 BCC $1446 ;NO--then $1C46 

A2 00 LDX #S00 ;Note counter at 0 
8E F3 14 STX $14F3 ;Store note counter 
68 PLA ;Accu from stack 
AA TAX ,;X-reg = accu 

68 PLA ;Accu from stack 


4c 65 FA JMP SFA65 ;Goto normal IRQ 


3.5 REAL-TIME CLOCK ON THE C-128 


These days, time is important to all of us. Perhaps this is on reason why 
most computers now have built-in clocks. By making use of the built-in 
variable TI$, your C-128 can become a clock. Be forewarned that TI$ runs 
unevenly at times; because of this we have developed a real-time clock using 
CIA #1: 


REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 


0 

31,248,,63,252, 

127,254, ,255,255,,240,15, 
DOR 1 D24 7 204 Tp 2245 1h 
O98 7G 224744 224 y eg 22 4G 1; 
D987 9 DO Tg 204 T4224 ¢ Te 
240,15,,255,255,,127,254, 
63,252,, | 
1 


3,252,,7,254,77,254, 
7,254,,7,254,,3,254, 
,126,,,126,,,126,,,126,,,126, 
,126,,,126,,,126,,,126,,,126, 
,126,,,126,,,126,,,126,,,60,, 


120 











Abacus Software 





160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
910 
520 
530 
540 
550 
560 
970 
580 


REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
REM 
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2 

63,254,,127,255,,127,255, 
124,315:¢120715;7 7487215774157 
r31,,,63,,,126,,,252,,1,248, 
3724077 122454 197160, 7-31,% 134, 
03, 1¢¢7 1207-1 7-6 2927 1¢-PlDDF2DOF 
127,254,, 

3 

03,294; 7127;255,7127,255; 
124,31,;7 120, 15,,48, 15,7731; 
,OS pre lZ7 px ZOD 7 LZ ZOD, 

Lp Zooper 
,i27,,,63,,96,31,,240,15, 
240,15,,255,255, 

2997 20977 1217290474 

4 

PLLA pe Ve OC HT AG COOLS Le LOCy 

S37 ZOZ (7 Sp COCPy I peolry lp 202; 
15,188,,15,188,,31,60,,31, 60, 
62,60,,124,60,,248, 60, 
2997-299 777 29947 2997525957255, 
2907 2O 0p 7007 F7-007 4 

3 

UZ) pZo2y 7 2ZIO97 ZOO py COOP el O0Y 
240,15,,224,15,,224,6,,240,, 
255,7,7,255,224,,127,248, 
1,254,,,127,,,31,,,31,,,31, 
,31,,96,127,,241,254,,255, 248, 
2997:22457127,128 7, 

6 

LZ ZOZ py 2OOF 6 DO7 FLOP LODy 
240,15,,224,15,,224,6,,240,, 
2557,77295,224,,255,248, 248, 


224,31,,240,127,,248,254,,255,248, 
2999-2249, 9¢ 12 lp ZorG 

7 

637254571217 250" 7 1 ZI 255; 
U245-31474207157 5485.1 5474-5; 
r31,,,63,,,126,,,252,,1,248, 
3,240,,7,224,,15,160,,31,128, 
63,7/,126,7,,252,,,252,,,252,,7, 
8 
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590 DATA 127,254,,255,255,,255,255, 

600 DATA 240,15,,224,7,,240,15, 

610 DATA 255,255,,255,255,,127,254, 

620 DATA 127,254,,254,127,,240,15, 

630 DATA 224,7,,224,7,,224, 71,2247 74 

640 DATA 240,15,,127,254,,31,248, 

650 DATA 15,224,,1,128,, 

660 REM 9 

670 DATA 1,254,,7,255,,31,255,,127,143, 
680 DATA 254,15,,240,15,,240,15, 

690 DATA 240,15,,240,15,,254,15, 

700 DATA 127,143,,31,254,,7,255,,1,255, 
710 DATA ,15,,96,7,,240,7,,240,15, 

720 DATA 255,255,,255,255,,127,254,, 

730 POKE 56334, PEEK (56334) OR 128 

740 FOR I = 3456 TO 4095 

750 READ A 

760  POKE I,A 

770 NEXT I 

780 REM SET TIME 

790 INPUT "HOURS{SPACE}{SPACE}{SPACE}";S 
800 IF S$ > 12 THEN S = S - 12: GOTO 800 
810 IF S < 0 THEN 790 

820 POKE 56331,S + INT (S / 10) * 6 

830 INPUT "MINUTES{SPACE}";M 

840 IF M < 0 OR M > 59 THEN 830 

850 POKE 56330,M + INT (M / 10) * 6 

860 INPUT "SECONDS{SPACE}";S 

870 IF S$ <0 ORS > 59 THEN 860 

880 POKE 56329,S + INT (S / 10) * 6 
890 S=0 

900 FOR I = 5120 TO 5180 

910 READ A 

920 S=S+H+A 

930 POKE I,A 

940 NEXT I 

950 IF S <> 6300 THEN PRINT "?ERROR IN DATA":END 
960 PRINT "{CLR HOME}HIT RETURN TO START" 
965 GET AS: IF A$ < > CHRS (13) THEN 965 
970 POKE 56328,0 

980 SYS 5120 

990 DATA 120,169,13,141,20,3,169 

1000 DATA 20,141,21,3,88, 96,160 
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1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
L120 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
FOR 

SPRI 


MOVSPR I,30 + I * 20 + INT((I-1)/2) 


NEXT 
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3273) 11;, 220; 41,3176 
26,20,185,8,220, 41,240 
74,7490, 74 
72,185,8,220,41,15 
72,136,208,237,173;,8 
220,72,160,7,104 
24,105,54,153,247,7,136 
208,246,76,101,250 
T=1T07 
Tht, ly 1210s 0 
#107100 
3 


The individual numbers are actually sprites. In fact, most of the listing is 


just to define the sprites. If you prefer, you can run the program without 
sprites; just type in the program beginning at line 780 and ending at line 
1080. You will need to alter the checksum (to 6298"), and change line 
1070 to: 


1070 DATA 24,105, 48,153,255,3,136 


Now for the machine language listing: 


1400 
a Od 
1403 
1406 
1408 
140B 
140C 
140D 
140F 
1412 
1414 
1417 
141A 
141C 
141D 


SEI ,interrupt off 
OD LDA #S00 ;Set IRQ vector 
14 03 STA $0314 ;to beginning of 
14 LDA #$14 ;this routine 
15°03: STA. SO0315 
CLI ;Enable interrupt 
RTS ;Return to BASIC 
03 LDY #$03 
OC DC LDA SDCOB ;Hour setting 
1F AND #S1F ;only first 5 bits 
1A 14 JMP $141A 
O08 DC LDA SDCO08,Y;Time 
FO AND #SFO ;ronly decimal point 
LSR ;Shift bit 4-7 
LSR sto bits 0-3 
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141E 4A LSR 
141F 4A LSR 
1420 48 PHA ,;Put number on stack 


1421 B9 08 DC LDA S$DC08,Y;Time 

1424 29 OF AND #SOF ; Seconds 

1426 48 PHA ;Put time on stack 
1427 88 DEY 

1428 DO ED BNE $1417 

142A AD 08 DC LDA S$DCO8 ;Tenths 


142D 48 PHA ;Put tenths on stack 
142E AO 07 LDY #S07 

1430 68 PLA ;Get count from stack 
1431 18 CLC 


1432 69 36 ADC #S$36 ;Add start-of-sprites 
1434 99 F7 07 STA SO7F7,Y;Sprite on block 

1437 88 DEY 

1438 DO F6 BNE 1430 

143A 4C 65 FA JMP SFA65 ;Goto normal IRQ 


The "other" version (without sprites) requires changing only two lines: 


1432 69 30 ADC #S$30 Convert count into ASCII 
1434 99 FF 03 STA SO3FF,Y;and put onscreen 


As you can see from the listing, you could set the clock using the IRQ. The 
clock will shut down when <RUN STOP/RESTORE:S is pressed. 
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3.6 ANALOG CLOCK 


To emphasize the importance of time, here's another clock program. Since 
not everyone likes digital clocks, this is an analog clock, from which most 
of us learned to tell time in the first place. This program combines a time 
program and the C-128's graphic commands. This program only works on 
a 40-column screen. 


Now on to the program. It's divided into two parts. The first part should 
look familiar to you, since it was used for setting the clock in the previous 
chapter. The second section of the program begins at line 150. This is 
where the clock face and hands are drawn, and where the second hand is 
controlled. Every minute, the screen is redrawn. The hands are all drawn 
using an extension of the CIRCLE command. 


10 REM SET CLOCK 

20 INPUT "HOURS{SPACE 3}";S 

30 IF S > 12 THEN S = § - 12: GOTO 30 
40 IF S < 0 THEN 20 

50 POKE 56331,S + INT (S / 10) * 6 

60 INPUT "MINUTES{SPACE}";M 

70 IF M < 0 OR M > 59 THEN 60 

80 POKE 56330,M + INT (M / 10) * 6 

90 INPUT "SECONDS{SPACE}";S 


100 IF S < 0 OR S > 59 THEN 90 

110 POKE 56329,S + INT (S / 10) * 6 

120 PRINT "HIT RETURN TO START CLOCK" 

125 GET AS: IF AS <> CHRS$ (13) THEN 125 
130 POKE 56334, PEEK (56334) OR 128 

140 POKE 56328, 0 

150 REM DRAW CLOCK 

160 GRAPHIC 1 

170 § SCNCLR 

180 COLOR 1,2 
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200 CIRCLE ,160,100,74 
210 CHAR ,19,4,"12". 
220 CHAR ,20,21,"6" 
230 CHAR ,28,12,"3" 
240 CHAR ,11,12,"9" 
270 REM DRAW HOUR AND MINUTE HAND 
280 COLOR 1,12 
290 M =INT (PEEK (56330) /16) *10+ (PEEK (56330) AND15) 
300 COLOR 1,1 
310 CIRCLE ,160,100,0,60,40,90,M * 6 
320 H = ((16 AND PEEK(56331))/16)*10 + 
(PEEK (56331) AND 15) 
330 CIRCLE ,160,100,0,60,60,90,H * 30 + M / 2 
340 REM DRAW SECOND HAND 
350 WAIT 56328,8 
360 COLOR 1,12 
370 CIRCLE ,160,100,0,110,0,40,S * 6 
380 COLOR 1,2 
390 S=INT (PEEK (56329) /16) *10 +(PEEK (56329) AND15) 
400 CIRCLE ,160,100,0,110,0,40,S * 6 
410 IF S = 0 THEN 170 
420 GOTO 350 


3.7 LLIST 


There are times when you'd like a quick printout of a BASIC program. 
Commodore BASIC doesn't make a hardcopy listing easy. You must enter 
all of the following commands: 


OPEN4,4:CMD 4:LIST:CLOSE4 


Other versions of BASIC have the command LLIST. The C-128 has to 
enable printer output only, jump to LIST, and turn back to the screen. 
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The following LLIST routine will not go directly to the LIST command at 
the beginning, but a little later. It won't check for which lines to list (you'd 
want the entire program in hardcopy anyway). Vectors $61/$62 come into 
play here (pointing to the beginning of the first line to be listed). Here's the 


assembler listing: 

1A00 A9 OO LDA #S00 :Configuration 

1A02 8D 00 FF STA SFFOO :Set configuration 
1A05 A9 OO LDA #S00 sFile name 

1A07 20 BD FF JSR SFFBD :Set file name 

1A0A AQ 04 LDA #504 :Logical file number 
1A0C AA TAX — :Device number 

1A0D AO O00 LDY #$07 :Secondary address 
1AOF 20 BA FF JSR SFFBA :Set file parameters 
1A12 20 CO FF JSR SFFCO :Kernal routine OPEN 
1A15 A2 04 LDX #$04 :Logical file number 
1A17 20 C9 FF JSR SFFC9 :Set output device 
1A1A A5 2D LDA $2D :>BASIC RAM start--low 
1A1C 85 61 STA S61 :store 

1A1E A5 25 LDA $2E >BASIC RAM start--high 
1A20 85 62 STA $62 :store 

1A22 20 E5 50 JSR S50E5 :sLIST routine (list all) 
1A25 AY OO LDA #500 :Configuration 

1A27 8D 00 FF STA SFFOO :Set configuration 
1A2A AQ 04 LDA #S$04 :Logical file number 
1A2C 20 C3 FF JSR SFFE7 :Kernal routine CLALL 
1A2F 60 RTS :Return 


Run this routine by entering SYS DEC("1A00") and your program will be 
listed to the printer. 


Here is the BASIC loader: 

100 FOR X = 6656 TO 6703 

110 READ A : CS = CS + A: POKE X, A 
120 NEXT X 


130 DATA 169,0,141,0,255,169,0,32,189,255 
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140 DATA 169,4,170,160,7,32,186,255, 32,192 
150 DATA 255,162,4,32,201,255,165, 45,133, 97 
160 DATA 165, 46,133, 98, 32,228, 80,169,0,141 
170 DATA 0,255,169,4,32,231,255, 96 


3.8 DO-IT-YOURSELF WORD PROCESSING 


Writing about full-fledged word processing doesn't make a lot of sense in a 
"Tricks and Tips" book. Instead, we offer you a short idea which will do 
for throwing a quick memo on paper, that is, in effect, a cheap imitation of a 
word processing program. 


First, type in AUTO 10 <RETURN>. Now type in your first line number 
(10), followed by a line of text and <RETURN> (you'll have to do this at 
the end of every line, but it's a small price to pay). Watch your line length 
(60 characters (1 1/2 lines) will work), since the printer will receive this 
verbatim. Here's a sample of text: 


10 This is the new word processor which 
20 is using built-in commands. The quick 
30 brown fox jumped over the lazy warthog. 


40 


Great, but how do we get it on paper? Simple; type in this line in direct 
mode when you're through entering text: 


POKE 24,37:OPEN4,4:CMD 4:LIST:PRINT#4 :CLOSE4 
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The text prints out -- without the line numbers! 

You can SAVE this material to diskette or cassette as you would a normal 
program, and print it out later. Sooner or later, though, you may end up 
with your own professional word processing software. 

Address 24 can do an amazing number of things. For example: 


POKE, 24;37:LIST 


lists a program on the screen without line numbers. If you run into a 
"FORMULA TOO COMPLEX ERROR", just try 


POKE 24,27 
Values other than 27 used in address 24 can make some changes to BASIC 


listings. Be careful. Error messages will reset the contents of location 24. 


3.9 MODIFIED INPUT 
| 


BASIC 7.0 has all those input commands you "grew up with" on the C-64; 
GET and INPUT, and a new one: GETKEY. 


INPUT, however, isn't especially aesthetic -- you get a question mark at 


every prompt onscreen. Sometimes a question mark isn't appropriate, as in 


10 INPUT" INPUT YOUR NAME!";NS 
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One method of getting around this 1s to open your screen as a file. Try this 
out instead of the normal INPUT statement: 


10 OPEN 1,0 :REM (screen as a file) 
20 INPUT#1,AS: REM (input w/o ?) 
30 CLOSE 1 


Now, if the INPUT command has to be in a particular spot on the screen, 
add the following: 


20 CHAR,column, row 
25 PRINT" ";: 
27 INPUT#1,AS 


CHAR positions the cursor much like a PRINT AT statement. 


3.10 WARNING TONE 


When the first typewriters appeared, they had a warning bell to let you 
know that you were getting close to the right margin. This can still be 
useful on computers. Here's a machine language program to create such a 
function: 


142D AS FF LDA #SFF ;Musical values 
142F 8D 06 D4 STA S$D406 
1432 8D 18 D4 STA $D418 
1435 AQ 09 LDA #S$09 
1437 8D 05 D4 STA $D405 


143A 78 SEI ;interrupt off 
143B AQ 47 LDA #$47 ;Reset IRQ vector 
143D 8D 14 03 STA $0314 

1440 AO 14 LDA #514 
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1442 
1445 
1446 
1447 
1448 
144A 
144C 
144E 
1450 
1453 
1455 
1458 
145A 
145D 
145F 
1461 
1464 
1466 
1469 
146C 
146F 
1470 
1480 


8D 15 03 STA 


14 


14 


FA 


CLI 


JMP 


$0315 


SE7 
SEC 
#S02 
$1461 
$1480 
$1464 
$1480 
#SA0 
SD401 
#$21 
$1466 
$1480 
#S00 
SD401 
SD400 
SD404 
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;Enable IRQ 

,Return to BASIC 
,;Accu on stack 
;Load right margin 
;Draw cursor-column 
;=2? 

;NO--then $1461 
,;Column by last 
;IRQ also 2, then $1464 
;Store 2 

;Play tone 


;Store column 
;Turn tone off 


;Set waveform 
;Accu from stack 
,;Jump to IRQ 


Pointer for previous column. 


Two characters from the end-of-line, a tone will sound. This is standard; it 
doesn't change if you switch from TV to a monitor. Basically, the program 
counts from the right margin of a window -- this is where the current cursor 
position is drawn. 


10 REM WARNING TONE 

20 FOR I = 5165 TO 5234 

30 READ A 

40 S=S +A 

50 POKE I1,A 

60 NEXT I 

70 IF S < > 8167 THEN BEGIN 
80 PRINT "?ERROR{SPACE}IN{SPACE}DATA"” 
90 END 

100 BEND 

110 SYS 5165 
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120: “DATA 469,255,141; 6,212, 141;,24,212 
130 DATA 169,9,141,5,212,120,169,71 

140 DATA 141,20,3,169,20,141,21,3,88,96 
150 DATA 72,165,231,229,236,201,2,208 
160 DATA 17,205,128,20,240,15,141,128 
170 DATA 20,169,160,141,1,212,169, 33 
180 DATA 208,5,141,128,20,169,0,141 

100. DATA 1,019 -141.0,.219,1414,010 

200 DATA 104,76,101,250 


You can change the value to anything except the last column. Just bear in 
mind that this routine is counting from night to left: 


POKE 5197,N 
N will give you your new "warning" location. 
This routine would be great for word processing, or for other data input 


especially when used in combination with the "Keyboard Beep" program in 
Chapter 7. 
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SOFTWARE PROTECTION ON THE C-128 


Software publishers invest a lot of time and money in copy protection. It's 
really pretty sad that software piracy is running rampant. Pirates are taking 
money out of the author's hand. The author is writing software to make a 
profit, but if the pirate is stealing software, then this is a disincentive to the 
author to produce more quality software. 


You can install copy protection on your own disks. The protection isn't 
unbreakable, but it will make matters difficult for the curious. One form of 
‘protection is based on a staple of BASIC programming: the LIST 
command. We'll talk about other methods of getting in the "back door" of 
protection. : 


4.1 PROTECTION WITH COLONS 


We did a lot of research and experimentation into protection routines. We 
found a few small BASIC routines for you to try. For example, you can 
hide individual lines from nosy folks with five colons! Type this: 


450 :::::PRINT "(C) 1985 by ‘The Team’" 


Next, add this routine to your programs with five colons inserted in the 
lines you wish to hide: 
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60000 
60005 
60010 
60020 
60030 


60040 
60050 
60060 
60070 
60080 
60090 
60100 
60110 


PEEK (LI) + 256 * PEEK (LI+1) 
IF LI = OQ THEN PRINT "DONE!" : END 
PRINT CHRS (145); "PASS "; 

PEEK (BA+2) +256*PEEK (BA+3) ; 

PRINT XS 

BA = LI 

FOR X = 4 TO 8 

IF PEEK (LI+X) <> ASC(:) THEN X=8: 
NEXT X 

IF FL = 1 THEN FL = 0 
POKE LI + 4, QO X$ = 
GOTO 60010 


FL=1 


: GOTO 60010 
Xs + Wa 


The routine is activated with RUN 60000. It tests for program lines to be 
ignored (PASS). When it finds one, the line will be covered with asterisks. 
The system will say READY when it's done; all that remains is for you to 
DELETE 60000- . Run the program; works fine. Now LIST it; the line 
numbers of the protected lines appear, but the contents of the lines are 


invisible. 


The Program: 


60000 : 


60010 


60020 : 


Start-of-BASIC is stored in variable LI. If you want to use this 
program in C-64 mode, you'll have to change the parameters in 
locations 45 and 43. | 


: Rather than look at every byte in the program, the protection 


routine checks line links for colons; the routine runs faster that 
way. 


Program ends when line link LI=0. 
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60030 : 
60040 : 


60050 : 


60060 : 
60080 : 
60090 : 


60100 : 


Current line number given. 
Number of protected lines is stored in XS. 


Basis of new line starting range is equal to the contents of link 
LI. 


Routine looks at first five characters of a line. 

Each "normal" line sets flag FL, and X to 8. 

If FL=1 the flag is reset, and the next line observed. 

Line is protected; first colon is set to0. When the program sees 


the 0, it's interpreted as an end-of-line, and the line is treated as if 
it were non-existent. 


4.2 LINE NUMBER ROULETTE 


A prime characteristic of BASIC is its sequential line numbers, which act as 
a guide for the programmer. Line numbers larger than 64000 cannot be 
used. We can use this little fact to our advantage: Type in this routine. 


60000 
60010 
60020 
60030 
60040 
60050 


BA = PEEK (45) + 256 * PEEK (46) 
LI = PEEK (BA) + 256 * PEEK (BA + 1) 
IF LI = 0 THEN PRINT "DONE!" : END 


PRINT"FIND LINE:"; PEEK (BA+2) +256*PEEK (BA+3) 
PRINT "(C)HANGE (G)O ON (E)ND ?" 
GETKEY AS 
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60060 IF A$ = "E" THEN PRINT "OK" : END 
60070 IF A$ = "G" THEN 60140 

60080 INPUT "NEW LINE NUMBER"; ZNS 

60090 IF ZN < 0 OR ZN > 65535 THEN 60080 
60100 HI = INT(ZN/256) : LO= ZN-(256*HI) 
60110 POKE BA+2, LO 

60120 POKE BA+3, HI 

60130 PRINT CHR$(145); 

60140 BA = LI | 

60150 PRINT CHR$ (145) ;CHRS$ (145); 

60160 GOTO 60010 


The first line probably looks familiar to you. Start the routine; the system 
will go through each line with prompts. You have three options: 
(C)HANGE, (G)O ON, or (E)ND. C alters the program line; G looks for 

the next line; and E ends the program. There are a few limitations: 


a) GOTO and GOSUB line numbers are unaltered. 
b) Line numbers larger than 64000 cannot be deleted. 
Cc) All line numbers less than one cannot be jumped to. 


The Program: 

The principle of this routine is pretty simple: It looks at all the BASIC 
program lines. If the line number is changed, the new line number is 
stored in ZN and in line 60100 in low/high-byte format. Then, the new 


value is POKEd over the old in BASIC memory. 


This protection will be automatically saved on disk or cassette with the 
program itself. 
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One other thing: type in a line, say, 64000. Now run the routine, and 
change it to 65535. This produces two effects. First, a line with the 
number 65535 is essentially considered to be the end of the program. 
Second, that high number is not shown if it's a REM, so you could hide 
your copyright notice there. 


4.3 MANIPULATING LINE-LINKS 


The preceding routine worked on the so-called line-links to change line 
numbers. Let's take another shot at "bending" these line-links, specifically, 
adjusting the link pointing to the next line. When we do this, the next line is 
invisible. Or, if you wish, we could fix a line-link to list the same line over 
and over. Usually, this won't bother the program run, unless you've really 
gone wild with these adjustments. Type this in by hand: 


60000 INPUT "1. LINE NUMBER"; 21 

60020 INPUT "2. LINE NUMBER"; 22 

60020 BA = 45 

60030 BA = PEEK (BA) + 256*PEEK (BA+1) 

60040 IF BA=0 THEN PRINT "LINE DOES NOT EXIST!":END 

60050 ZN = PEEK(BAt+2) +256*PEEK (BAt+3) 

60060 IF FL = O THEN IF ZN =Z1 THEN 
L1=BA:L2=BAt1:FL=1 

60070 IF FL = 0O THEN 60030 

60080 IF ZN=22 THEN POKE L1, PEEK (BA) 
POKE L2, PEEK (BA+1) :END 

60090 GOTO 60030 


The routine will ask you for the numbers of the first and second program 
lines. The links in the first line pointing to both lines will be altered. All 
lines become invisible. One thing to remember with this routine: any 
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alterations (adding or deleting lines) recalculate the line-link pointers, so it's 
a far from infallible protection trick. 


4.4 CREATIVE CONTROL CHARACTERS: 
MAKING GREMLINS 


Control characters are a familiar sight; for example, this one clears the 
screen: '"v". We see them in quote mode, they change character position and 
color. There is another use for these characters, though: we can use them 
on the screen to foil LISTing. Type this in first in direct mode: 


KEY1,CHRS (27) +CHRS (79) +" {RVSON } {SHIFT-M} {RVSOFF } "+ 
CHRS (34) +CHRS (20) 


This turns <F1l> into an instant <SHIFT-M> (this activates control 


characters). Let's have some fun with a few BASIC lines (whenever an 
asterisk (*) appears, press <F1>). 


The Gremlin and PRINT 
PRINT"This is how it works*in PRINT statements*!" 


All <SHIFT-M> does here is perform a carriage return (C/R). This has 
nothing to do with software protection; just showing you what it does. 
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The Gremlin and REM 
10 REM"*(CRSRUP) (RVSON) This is a test line 

List this line, things are getting interesting now! The <SHIFT-M> causes 
the two control characters to execute, so the line moves up one line and goes 
into reverse video. In other words, the REM acts like a PRINT statement 
when listed! 
The possibilities are almost limitless! We can change colors... 

1000 REM"* (CTRL+1to8) 

1000 REM"* (C= + 1to08) 
...format listings... 

1000 REM"* (CRSRDOWN) (CRSRDOWN) 


...or simply mask lines out: 


1000 REM"*{CRSRUP}900 SYS (4096) CRACKED BY RUSS T 
(Indicates cracked machine language program) 


1000 PRINT"(C) BY RUSS T":REM"*{CRSRUP } 
(Line 1000 overwritten by next line) 


Have a good time! 
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4.5 PROTECTION WITH POKES 


POKEs can do so much; they even give you the ability to ward off saving, 
listing or running a program. One disadvantage: The program has to be 
RUN before any of this will take effect, but you can sidestep this somewhat 
by using an autoboot program. 


4.5.1 LIST DISABLING 


Page 3 has a pointer that points to the vector for the LIST input. This vector 
has the addresses 774/775 ($0306/$0307). Try POKE 774,61:POKE 
775,255. Now LIST. The computer acts as if you've requested a 
warm-start, and goes to the opening screen. Now try POKE 774,38:POKE 
775,160, which points to the vector for "RTS". Only line numbers will be 
given. 


AS you can see, changing pointers can do remarkable things. 


4.5.2 DISABLING RUN-STOP/RESTORE 


Early in computing, people got the idea of putting code words into 
programs. Commodore computers can be circumvented, just by pressing 
<RUN-STOP/RESTORES>, and looking up the code word in the program. 
We can foil that with POKE 808,PEEK(808)-3 which disables both keys. 
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Let's put it into practice: 


10 POKE 808, PEEK (808) -3 
20 PRINT"This is a test "; 
30 GET AS:IF AS=CHRS$ (3) THEN PRINT:PRINT"BREAK" 


POKE 792,51:POKE 793,255 disables RESTORE alone; <RUN-STOP> 
alone can be done in BASIC: 


10 TRAP 1000 

20 PRINT"This is a test "; 
30 GOTO 20 

1000 ?"*BREAK*" 

1010 RESUME NEXT 


Here we used the message "BREAK" to signify the <RUN-STOP> key. 
See the chapter on "Error Handling" (Chap. 3). One final word: This 
routine can be skirted by pressing the <RUN-STOP> key quickly several 
times. 


4.5.3 DISABLING SAVE 


The SAVE vector also resides in page 3 of memory (818/819 
[$0332/$0333]). We can pretty much pull the same stuff that we did in the 
LIST disable: RTS, reset, etc. 
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4.6 DISK COPY PROTECTION 


So far, we've looked at general in-program protection. Next, we're going 
to look at what's involved in protecting a disk from copying. 


Perhaps you've heard of "destroying" the tracks on a disk. We can create a 
READ ERROR, which will at least slow down disk copying. Name the 
track you wish to change in the variable TR. 


QO REM READ ERROR ON DISK 

10 OPEN 1,8,15 

20 OPEN 2,8,2,"#" 

30 PRINT#1,"U1 2 O";TR;0 

40 PRINT#1, "M-E"CHRS (163) CHRS (253) 


Before starting, make sure there's no valuable disk in the drive. 
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4.7 LOAD "$" 


There are times when you may want to try stopping anyone from reading 
the disk directory, since the directory gives important information to the 
would-be copier. Best way around this is to wipe the directory altogether! 


10 REM DIRECTORY SCRATCH 

20 OPEN 1,8,3,"#" 

30 OPEN 2,8,15,"B-P3,144" 

40 PRINT#1,CHRS$ (20) CHRS (20) CHRS (20) CHRS (0) CHRS (0) 
CHRS (0) 

50 PRINT#2,"U2:3,0,18" 

60 PRINT#2,"I" 

70 END 


Use this program with disks from which you've memorized the program 
names. Also, keep in mind that you won't know what programs have been 
changed, scratched, or whatever. 


Essentially, when the directory is loaded with LOAD "$",8 it is handled like 
a BASIC program. We simply write a zero to the beginning of the 
directory, and the LIST routine interprets the zero as the end-of-program. 
This only works for LOAD"$",8 and not the DIRECTORY command. 
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SELF-MODIFYING PROGRAMS 


3.1 LINE INSERTION 


Programs are usually designed with just one application in mind, partially 
due to the fact that you can't change programs as they're running. In the 
next few pages, we're going to show you how to insert lines into a running 
program. We'll also give you some sample applications for this useful 
feature. 


Inserting lines in an running program opens up a new spectrum of 
programming, and can be accomplished with a few simple POKEs. 
Remember, though, this little routine is a big step from a program 
generator, which lets you create a BASIC (or other) program. | 


Technically, this line addition is very complicated. So, the normal procedure 
is to stop the program, insert the line and restart the program. The key to 
our work in this chapter is the keyboard buffer. Try this test program: 


10 TP=842 

20 POKE TP, ASC ("L") 

30 POKE TP+1,ASC ("I") 

40 POKE TP+2,ASC("S") 

50 POKE TP+3,ASC("T") 

60 POKE TP+4,13: REM RETURN 
70: 

80 POKE 208,5 

90 END 
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RUNning this program makes it LIST itself by writing LIST into the 
keyboard buffer (lines 20-50) and <RETURN3> (line 60). Line 80 tells the 
operating system that five characters are in the keyboard buffer. One 
application would be for INPUT or GET, or for a program end. This is 
what happens: the program ends at line 90, but the computer "INPUTS" 
the characters that were "stuck" in the keyboard buffer. So, the system 
interprets LIST<RETURN> as a direct command. Remember that the 
computer gets the characters when the program ends. Experiment -- put in 
your own commands (e.g., RUN; but remember to put in <RETURN>s 
(13)). | 


5.2 FORMULA ENTRY 


Now, let's experiment with changing lines in a running BASIC program: 


10 PRINT"FORMULA ENTRY" 

20 PRINT:PRINT 

30 PRINT"ENTER AN EQUATION" 

40 PRINT" (E.G. Y=2*X+SQOR(X/34.5) *INT(5.6*X%4) 
50 INPUT VS 


This program section needs no detailed explanation. Basically, the equation 
of your choice is typed in, and stored in V$. Our example has the format 
Y=....X... , which leaves X open for any variable. But how do we get the 
equation into the program? 


60 PRINT CHRS (147) 
70 PRINT : PRINT"1000";VS 
80 PRINT : PRINT"RUN 500" 
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This creates a new line number -- line 1000 with your formula. 
90 PRINT CHRS$ (19); 


When you RUN this program, the cursor blinks on the new line. If the line 
is correct, press the <RETURN> key. Here's more: 


100 FOR A=0 TO 3 

110 POKE 842+A,13 

120 NEXT A 

130 POKE 208,4 

140 END 

500 PRINT CHRS (147) 

510 INPUT "X-VALUE";X 

1000 REM HERE'S WHERE THE EQUATION GOES 
1010 PRINT"RESULT IS:";yY 

1020 END 


The keyboard buffer is filled with the ASCII code for <RETURN>. The 
program ends, the <RETURN>s are sent, and the routine automatically 
Starts with RUN 500. Be sure you make the proper changes when a larger 
number of variables are used; this is a matter of altering line 500. 


3.3 DATA STATEMENT GENERATOR 


We're not through with this subject and the next program will show that. 
This is a "real" application program: a DATA generator, which you'll find - 
to be useful. Although this program lends itself to alterations, it generates a 
lot of lines! 
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10 PRINT "{CLR HOME}D ATA -GENERAT O R" 
20 PRINT : PRINT : PRINT 

30 PRINT "THIS PROGRAM CONVERTS THE "; 

40 . IF PEEK (215) < 128 THEN PRINT 

50 PRINT "CONTENTS OF MEMORY TO A BASIC-LOADER!" 
60 PRINT : PRINT 

70 PRINT "INPUT- FORMAT: " 

80 PRINT : PRINT 

90 INPUT "MEMORY CONFIGURATION (BANK) "; BK 

100 INPUT "BEGINNING DATA ADDRESS (HEX) ";AS$ 

110 INPUT "ENDING DATA ADDRESS (HEX) ";BS$ 

120 A = DEC (AS) - 1: B = DEC (BS) 


140 INPUT "BEGINNING LINE NUMBER";Z: O = 2 
150 INPUT "LINE NUMBER INCREMENT";S 
160 INPUT "AMOUNT OF DATA PER LINE";DZ: XY = DZ 


180 GOSUB 1000 


200 LD = B-A 

210 PRINT "{CLR HOME}{CRSR DOWN}{CRSR DOWN }" 

220 IF LD < DZ THEN DZ = LD: FL = 1 

230 LD = LD - DZ 

240 PRINT Z;"DATA "; 

250 IF DZ > 1 THEN FOR W= 1 TO DZ - 1: 
ELSE GOTO 290 

260 BANK BK: P = PEEK (A + W + (XY * ZE)): 
PRINT P;"{CRSR LEFT},"; 

270 CS = CS + P 

280 NEXT W 

290 ZE = ZE +1 

300 BANK BK: P = PEEK (A + (XY * (ZE-1)) + DZ): 
PRINT P: CS = CS + P 


320 Z=2Z+S 

330 IF FL = 0 THEN PRINT "GOTO 210": 
ELSE PRINT "GOTO 900" 

340 GOTO 800 

800 REM FILL KEYBOARD BUFFER 

810 PRINT "{HOME}"; 

820 FOR X = 842 TO 851 

830  POKE X,13 

840 NEXT X 
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850 POKE DEC ("DO"),10 
860 END 
900 REM EDITOR 
910 PRINT "{CLR HOME}{CRSR DOWN}{CRSR DOWN}"; 
920 PRINT O+3*S;"IF CS<>";CS; 
" THEN PRINT CHRS$(7);: LIST" 
930 PRINT "DELETE -1300" 
940 BANK 15: GOTO 800 
1000 REM INIT 
1010 PRINT "{CLR HOME}{CRSR DOWN}{CRSR DOWN}" 
1020 PRINT Z;"FOR X=";A + 1;"TO";B 
1030 PRINT Z + S;"READ A: CS=CS+A: POKE x,A" 
1040 PRINT Z + 2 * S;"NEXT X" 
1050 Z2=2Z2+4% § 
1060 PRINT "GOTO 200" 
1070 GOTO 800 


Save this program as DATAGEN before running!!! Here's what it does: 


The program generates a BASIC loader for you. You'll need to know the 
Starting and ending addresses of the machine language program and the 
memory configuration (normally Bank 0). In addition, you choose the line 
number to start, increment, etc. The first line number should be larger than 
1300; otherwise the DATA generator program will be overwritten. Once 
this is complete, the DELETE command erases the DATA generator 
program, after which you may want to renumber the program. 


C-128 C-64 MEANING 

36 26 3 26 26 24k 246 2k 246 2K 24 2k 246 2k 2k 2k 24g 2s 2k 286 24k 2K 2c 2fe 2K 2fe 24 fc 2fé 2K 24k 2k 2k 2c 24 afc 24 2c 24k 2c 9K 2c 2c 2K 2k 9k 216 2 2K 2k 2k 2K 2 2k 

208 198 Number of characters to be given by the 
keyboard. 


842-851 631-640 Keyboard buffer (normal); 10 bytes to be 
given are stored in keyboard buffer . 
2592 649 = Maximum size of keyboard buffer (10). 
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Important: "Real-time" line insertion is also possible in C-64 mode, but 
it's a lot easier to manage in C-128 mode. When you change lines in 64 
mode, all the variables are cleared. This is not the case in C-128 mode, 
because a special memory bank is set aside for variables (Bank 1). 


The maximum size of the keyboard buffer is normally 10, which is usually 
sufficient. If need be, command words can be inserted in "short form" (see 
the back of the C-128 User's manual for abbreviations). Otherwise, the 
C-128 lets you change the keyboard buffer to a maximum of 20 elements. 
This overwrites the TAB-bitmap memory, which means that the TAB key 
won't work properly. The enlarged keyboard buffer covers memory 
locations 842 to 861. Change the size of the keyboard buffer with this 
command: 


POKE 2592,20 
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THE DATASETTE 


In this chapter, we're going to show you a few neat tricks for your Datasette 
(or whatever compatible tape drive you may have). We imagine that most 
of the C-128 owners have opted for the 1571 disk drive. By the same 
token, if you can be patient with the tape drive's speed, it's a good, cheap 
alternative to a disk drive (beats having nothing for storing programs). 


6.1 SOFTWARE CONTROL FOR DATASETTE 


Those who use the Datasette usually don't notice that the cassette motor 
Stops on its own when the drive is through saving or loading programs. 
This motor is controlled by the operating system, but can also be controlled 
by software (i.e., through programming). The important addresses are 
locations 1 (processor port) and 192 (cassette motor flag). 


Try this: press the PLAY button on your recorder; the motor runs and the 
tape spins. Now type this in direct mode: 


POKE 192,1:POKE1,PEEK(1) OR 32 


The motor stops without your touching the recorder. Let's get the motor 
running again: 


POKE 1, PEEK(1) AND 39:POKE 192,0 
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The key to this is the processor port, address 1. Bit 3 (CASS WRT), bit 4 
(CASS SENS) and bit 5 (CASS MOTOR) of this address deal with cassette 
operation. To switch the motor on, the bit CASS MOTOR must be turned 
on. 


Now you can control the cassette drive using a timing loop to create a 


catalog of your programs, or even set up function keys to switch the motor 
on and off. 


6.2 SENSING THE DATASETTE KEYS 


Address 1 does more! Bit 4 checks to see if a key is pressed on the 
Datasette, which is part of the operating system ("PRESS 
PLAY(&RECORD) ON TAPE" messages are controlled here). 
Unfortunately, the computer is unable to discern which Datasette key is 
pressed. This can be a nuisance if the user presses PLAY and forgets to 
press RECORD as well; the system won't catch the error. 


This bit checks for the tape switches: 


WAIT 1,16 (Wait until STOP is pressed on recorder) 
WAIT 1,32,32 (Wait until a key has been pressed on the recorder) 


We can also make the system test for RUN-STOP: 


IF PEEK(1)=99 THEN PRINT "OOPS" 
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6.3 DOING UNUSUAL THINGS WITH THE DDR 


Okay, what is a""DDR"? And what sort of "unusual things" can you do 
with it? 


A lot, we think. The processor port is basically an I/O (Input/Output) port, 
handled by the CIAs. This port has six lines, three of which are dedicated 
to the Datasette. The lines act as both output and input; these directions are 
determined by the DDR (Data Direction Register) for the processor port, 
found at address 0. The layout: 


bit 3: Data direction CASS WRT 
bit 4: Data direction CASS SENS 
bit 5 : Data direction CASS MOTOR 


O = Input 
1 = Output 


CASS WRT and CASS MOTOR are output. They affect the recorder when 


writing to tape. CASS SENS is an input line. It checks if a tape drive key 
down or not. 


159 


Abacus Software Tricks & Tips for the C-128 


6.4 COPY PROTECTION WITH THE DATASETTE 
What happens if we change the bits in the DDR? The POKE below turns 
CASS SENS into an output line: 
POKE 0,PEEK(0O) OR 2%4 

The result: CASS SENS will not register cassette status. The system will 
say, "PRESS PLAY(& RECORD) ON TAPE", and even if you do so, the 
operating system won't acknowledge "OK", or LOAD, or SAVE. 
Changing things back to normal is a simple matter of typing: 

POKE 0,PEEK(0O) AND NOT 2%4 
By changing CASS WRT, we can produce a method of copy protection: 


POKE 0, PEEK(0) AND NOT 2%3 


The prompt will come up, the keys will be sensed, and the SAVE routine 
will appear to work...but it won't. To return to normal: 


POKE 0,PEEK(0) OR 2%3 
One last possibility is to alter the motor control. Re-enter: 
POKE 0,PEEK(0) AND NOT 2%4 


The solution to this problem: POKE 0,PEEK(0) OR 2%4 
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6.5 "LO-FI" -- THE DATASETTE AS MUSIC BOX 


Stereo systems and video disc players have been developed with computer 
interfaces built in. This means that in a few years, your stereo and video 
equipment will be computer controlled. Right now, some computers allow 
you to play audio cassettes through the computer's data system. We give 
you a program that does just that on the next page. A word of warning: the 
sound quality -- well, the word "rotten" would describe it best. 


The program below manipulates the three I/O lines of the processor port. | 
There is another, unused line between the recorder and the computer (CASS 
READ, the equivalent of CASS WRT). All "incoming" data goes through 
this line. The problem: The line doesn't end at the processor, like the other 
lines -- it continues on to CIA1 (putting the serial port at our disposal). So 
register 13 of CIA1 will have to be set: 


REG 13 BIT 4:1= Signal tripped on pin FLAG 


Here's the machine code listing: 


1A00 AO OO LDY #500 > VOLUME 0 

1A02 AD OD DC LDA $DCOD :Check FLAG pin on CIA1 
1A05 C9 00 CMP #S$00 :No signal? 

1A07 FO 02 BEQ $1A0B >YES--go on 

1A09 AO OF LDY #S0OF :sNO--turn off volume 
1AOB 8C 18 D4 STY $D418 sand SID register 24 
1AOE A5 D5 LDA $D5 :-Read keyboard 

1A10 C9 58 CMP #5358 :88=no key pressed 

1A12 FO EC BEQ $1A00 + +#$:No keys -- go on 

1A14 60 RTS :sReturn to BASIC 
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And the BASIC loader: 


5000 FOR X = 6656 TO 6676 

5010 READ A: CS = CS + A: POKE X,A 

5020 NEXT X 

5030 IF CS <> 2799 THEN PRINT CHRS (7);: LIST 
5040 DATA 160,0,173,13,220,201,0,240,2,160,15,140 
5050 DATA 24,212,165,213,201, 88,240,236, 96 


Start this program with the command: SYS DEC ("1A00"). The principle of 
this program is simple: It looks for a signal at FLAG. If that's the case, the 
speaker is turned on; if not, the speaker remains off. The switching on and 
off occurs within the smallest loop possible in machine language and a 
horrible tone comes out. 


If you put a music cassette into the system, it will probably sound pretty 
mangled; the tone is filtered as much as possible. 


6.6 SAVING TO CASSETTE -- SORT OF 


The SAVE command needs no introduction; you know what it is, and how 
it works. But what are those funny sounds made by a cassette (did you 
listen, using the program in the last chapter?)? The peeps are made by the 
CASS WRT line: 


bit 3 CASS WRT 
1=impulse 


It's fairly simple to make your own tape impulse: 
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sr 


REM TONES ON CASSETTE 

PRINT "PRESS PLAY AND RECORD ON TAPE" 
WAIT 1,32,32 

FOR W= 1 TO 20 

FOR K= 0 TO 20 

POKE 1,PEEK(1) OR 8:REM IMPULSE 

FOR T = 1 TO W:REM DELAY 

NEXT T 

POKE 1,PEEK(1) AND NOT 8:REM SET BACK 
NEXT K 

NEXT W 

END 


This short program saved different high and low tones to your cassette. 


Use the previous program to listen to the various sounds created. It should 
demonstrate the principle. 
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THE KEYBOARD 


7.1. KEYBOARD ASSIGNMENT 


There are many ways to read the keyboard besides the BASIC commands 
GET and INPUT, especially for machine language programmers. In zero 
page location 213 ($D5) the computer stores the value of the currently 
pressed key. This value is not the ASCII value, it is derived from the 
keyboard table in the ROM of the computer. 


The C-64 stores the currently pressed key in zero-page location 203 ($CB). 
Due to the additional keys on the C-128 the values are not always the same. 
Below is a chart showing what value is returned for each key pressed. 


Key Value Key Value 
Left arrow 37 1 56 
2 59 3 8 
4 11 5 16 
6 19 7 24 
8 27 9 32 
0 35 + 40 
- 43 O 48 
CLRHOME 51 INST DEL 0 
CTRL 58 Q 62 
W 9 E 14 
R 17 T 22 
Y 25 U 30 
I 33 a) 38 
P 41 @ 46 
is 49 “(up arrow) 54 
RUN-STOP 63 A 10 
S 13 D 18 
F 21 G 26 
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H 29 J 34 
K 37 L 42 
: 45 : 50 
= 53 RETURN 1 
Zz 12 xX 23 
C 20 V 31 
B 28 N 39 
M 36 47 
; 44 / 55 
CRSR down 7 CRSR right 2 
SPACE 60 


There are differences between the C-64 and C-128. No key pressed returns 
the value 88 on the C-128. On the C-64 no key returns the value 64. 


The following keys are brand new on the C-128: 


Help-Button 64 
Tab-Button 67 
ESC-Button 72 
Line Feed 75 


In addition to the cursor keys below the <RETURN> key (which return the 
same values in both machines) there are four new cursor keys. These have 
different values! 


Cursor up 83 
Cursordown 84 
Cursor left 85 
Cursorright 86 
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The C-128 also includes a numeric keypad. Just like the separate cursor 
keys, the values returned by the keypad keys are not equal to the values 
returned for the numbers on the alphanumeric keyboard. Here are the 
values for both keyboards on the C-128: 


Key Keyboard Keypad 
1 56 71 
2 59 68 
3 8 79 
4 11 69 
5 16 66 
6 19 77 
7 24 70 
8 27 65 
9 32 78 
0 35 81 
44 82 
RETURN 1 76 
+ 40 73 
43 74 


The joystick of port 1 can also affect location 213 ($CD). Unfortunately this 
address is not useful for reading the joystick. When you push the joystick 
upward, the address will not change. You could use this fact to connect 
another keyboard to port 1. 


Joystick up 88 Effect like ALT 
Joystick inthe middle 88 No effect 
key pushed 92 Effect like shift 
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Joystick left 90 Effect like CTRL 
Joystick right 91 
Joystick down 89 


With the following program you can simulate the BASIC 7.0 command 
GETKEY: 


10 IF PEEK(213) = 88 THEN 10 
20 GET AS 

30 PRINT AS 

40 GOTO 10 


Of course, this command sequence in BASIC programs doesn't make much 
sense because the GETKEY command already exists. This program can be 
converted for machine language programs. In assembly language the 
program would be very short and could look as following: 


Loop LDA $D5 
CMP $58 
BEQ Loop 


After leaving the loop the accumulator contains the value of the key pressed 
for further processing. 
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7.2, CHANGING KEY ASSIGNMENTS 


Every computer programer and user has their own ideas on how to use a 
computer. Many people became interested in computers through computer 
games. For this group the computer indusrty designed their products to be 
user-friendly, with easily connected joysticks, a lightpen, a trackball, or 
paddles. 


Another group of computer users are people who got involved with 
computers because of their jobs. The C-128 will probably be more popular 
with this group than was the C-64, because the C-128 can also run CP/M. 
CP/M is an operating system that runs on a wide variety of computers. The 
ability of CP/M to run on many different computers has made it a very 
popular operating system. To expand the performance of the C-128 it 
would be very useful to change the key assignments, depending on the 
requirements of the user. 


This is not as easy in the C-128 as it is in the C-64. The keyboard decoder 
table is located in the ROM: 


64128 ($FA80) for ASCII operation 
64809 ($FD29) for DIN operation (international models only) 


On the international models of the C-128, two character decoding tables are 
included in ROM. This is to give the international models the correct 
foreign character sets for the countries in which they are sold. We have 
checked the U.S. models and the German models (DIN stands for Deutsch 
(German) Industry Norm). On the international models the <CAP-LOCK> 
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key is replaced by an <ASCII-DIN> key. When this key is pressed the 
operating system loads the foreign character (DIN) set into memory. Minor 
changes were made to the operating system to accommodate this; for more 
details please see our book Commodore 128 Internals. 


You can read the key assignments (with the monitor use the command 
MFFA80), but you can't change the assignments because they are in ROM. 
There is another way. In zero page there is an pointer to the keyboard 
decoder table. It is at locations 830 ($033E) and 831 ($033F). To change 
these values on the international models a little trick is needed. On both the 
U.S. and the international models you will be able to change the low-byte, 
but you will not be able to enter commands anymore because the keyboard 
will not be decoded properly. 


On the international models, as soon as you change the high-byte of the 
pointer (at 831) you will notice that the computer has reset these locations 
back to their normal values. 


This doesn't happen because the address is in the ROM. It is caused by the 
permanent check of the <ASCII-DIN> key. On the international models 
when the high-byte does not equal the value which is preset for the current 
mode, the address is reset. You can prevent the permanent check of the 
<ASCII-DIN> key, by setting the seventh bit of address 2757 ($OACS5). 


POKE 2757, PEEK(2757) or 128 


Now you can change the pointer to the decoder table on the international 
models. It will not reset automatically again. This is not necessary on the 
U.S. models. 
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When you alter this pointer you will no longer be able to enter any 
commands from the keyboard. When you push a key a character will appear 
but it is seldom the one you pressed. You must press the reset button to 
return the computer back to normal operation; not even a 
<RUN-STOP/RESTORE> helps. For this reason, you should copy one of 
the character set tables to RAM before switching. Example at 6912 
($1BOO): | 


10 REM Copy and switch 

20 FOR I=O0 TO 88 

30 POKE 6912+1I, PEEK (64128+I) 

40 NEXT I 

50 REM INTERNATIONAL MODELS ONLY: 
POKE 2757,PEEK(2757) OR 128 

60 POKE 830,0 

70 POKE 831,27 


On the international models if you had the <ASCII-DIN> key on, you will 
not recognize a big difference. If you started the program when the ASCII 
character set was activated, you will have the <CAPS-LOCK> character set, 
which is normal in the American version. When the <CAPS-LOCK> key is 
on, all letters appear as capital letters, just like the <SHIFT> or 
<SHIFT-LOC>K key. The difference is, the numbers appear just like 
before and not the upper character, obtained with <SHIFT>. If 
<CAPS-LOCKs is not pushed, you have the normal character set. 


Now back to changing the keyboard assignments. In the previous section is 
a chart showing keyboard assignment values, which you can use now. 
Take the value of the key you would like to change and add it to 6912. In 
this location you store the ASCII value of the new assignment. 
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Example: You would like to change Y and Z. Just add these lines to the 
previous program: 


80 POKE 6912+12,89 
90 POKE 6912+25,90. 


After the program finishes running the Y is the Z key and Z the Y. It is 
really that easy. 


Another tip that will help you to enter machine language listings, in the form 
of DATA statements, faster into your computer. In the keypad is a period 
key. This character is useless for entering DATA statements for machine 
language programs. Instead of this period a comma would make entering 
DATA statements much easier. So we'll change the keypad, to a comma 
instead of the period: 


10 REM COMMA INSTEAD POINT 

20 FOR I=O TO 88 

30 POKE 6912+I1, PEEK (64128+T) 
40 NEXT I 

90 POKE 2757, PEEK(2757) OR 128 
60 POKE 830,0 

70 POKE 831,27 

80 POKE 6994, 44 
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7.3. HEX-KEYBOARD FOR THE C-128 


If you work with hexadecimal numbers, then you know the problems of 
entering these numbers from the normal keyboard. | 


Above the keypad are the eight function keys. You only have to assign 
those with the six necessary letters. After this change you still have two 
keys left which are not assigned to any function. But we'll also change 
those. We assign those two keys to the function DEC(" and HEX(, which 
are used often. Often, during programming you have only one hand free. 
Your second hand is busy holding books, lists and other things. For this 
reason, some of the letters that are reachable only with the <SHIFT> key 
are awkward to use. But there are still plus and minus keys which are not 
really necessary for entering hex-numbers. Thats why we'll assign those 
keys to the letters E and F. 


And here is an example how you can enter hex-decimal numbers with one 
hand: 


10 REM Hex-keyboard on the C-128 
20 KEY 1,"A" | 

30 KEY 3,"B" 

40 KEY 5,"C" 

50 KEY 7,"D" 

60 KEY 2,"E" 

70 KEY 4,"F" 

80 KEY 6,"PRINT DEC ("+CHR$S (34) 
90 KEY 8,"PRINT HEXS$ (" 

100 For I=O TO 88 

110 POKE 6192+1.PEEK (64128+I) 
120 NEXT I 

130 POKE 2757,PEEK(2757) or 128 
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140 POKE 6994, 32 
150 POKE 6985, 69 
160 POKE 6986, 70 


You reach the letters "E" and "F" when you push the keys <SHIFT> and 
<F1> or <SHIFT> and <F3>, or with the plus key (E) and the minus key 
(F). 


When you would like to convert a hexadecimal number to a decimal number 
you only have to push the keys <SHIFT> and <F5>. You can convert a 
decimal number to a hexadecimal number with SHIFT and <F7>. 


7.4.SHIFT, C=, CTRL, ALT KEY ASSIGNMENTS 


When you used the program where we changed the Y and Z, you probably 
saw, that the shifted values of these keys remain unchanged. For 
assignments using the <SHIFT>, the <C=> key, the <ALT> key and the 
<CTRL> key, there are separate tables. For the ASCII character set (U.S. 
models) the tables are located as follows: 


64128 (S$FA80) First assignment 

64217 ($FAD9) With SHIFT 

64306 ($FB32) With COMMODORE-Key 

64395 ($FB8B) With CTRL 

64128 ($FA80) With ALT (same meaning without shift) 


On the international models the C-128 has a second foreign language 
character set. When the <ASCII-DIN> key is pressed, you can change the 


176 


Abacus Software 


Tricks and Tips for the C-128 


keyboard assignment. Therefore you have four completely different tables. 


containing the keyboard decoder tables and the shift assignments. Here are 


the current addresses: 


64809 ($FD29) 
64898 ($FD81) 
64987 (SFDDB) 
65076 ($FE34) 
64128 (S$FA80) 


Initial value 

With SHIFT-KEY 

With COMMODORE-KEY 
With CTRL 

With ALT 


Pointers to the respective table for each of the five keys are located in zero 


page. On the international 
<ASCII/DIN> key: 


830-831 ($033E-$033F) 
832-833 ($0340-$0341) 
834-835 ($0342-$0343) 
836-837 ($0344-$0345) 
838-839 ($0346-$0347) 
840-841 ($0348-$0349) 


models there is also a pointer for the 


Standard key press 

With <SHIFT> 

With Commodore (<C=>) 
With <CTRL> 

With <ALT> 

With <ASCII-DIN> or 
<CAPS-LOCK> key 


Each table has 89 bytes, equals to the 88 keys, plus the possibility that no 


key is pressed. 


To replace two keys, you have to change the values in all four tables. The 


following program will do this: 
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10 REM Z and Y change 

15 BANK 15 

20 FOR I=0 to 90*4 

30 POKE 6656*1I,PEEK (64128+I) 
40 NEXT I 

50 POKE 2757,PEEK(2757) or 128 
60 REM normal table 

70 POKE 6656+12, 89 

80 POKE. 6656+25, 90 

90 REM Shift-Chart 

100 POKE 6656+89+412, 89+32 
110 POKE 6656+89+25, 90+32 
120 REM Commodore-Chart 

130 POKE 6656+2 * 89+12,183 
140 POKE 6656+2 * 89+25,184 
150 REM CTRL 

160 POKE 6656+3 * 89+12,25 
170 POKE 6656+3 * 89+25,26 
180 REM Change pointer 

190 POKE 830,0 

200 POKE 831,26 

210 POKE 832,89 

220 POKE 833,26 

230 POKE 834,89 * 2 

240 POKE 835,26 

250 POKE 836,11 

260 POKE 837,27 


Now you can change the shifted key assignments to anything you want. 


The new key assignment does not have to be at address 6656. Remember, 
you also have to change the pointer (830 - 841). 
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7.5. THE AUXILIARY KEYS 


The computer needs extra keys to make it possible for a key to have more 
than one value. The C-64 had three extra keys: <SHIFT> (both <SHIFT> 
and <SHIFT LOCK> have the same function), <C=> and <CTRL>. 


The C-128 has these, as well as three additional keys: <ESC>, <ALT> and 
the <CAPS-LOCK> (<ASCII-DI> on the international models). 


ESC means escape. This key is not a new invention from Commodore. It 
has been used for many years in other computers. With the <ESC> key on 
the C-128 you can do functions like switching from the 40 to the 80 column 
screen. Every key has a special function in combination with the <ESC> 
key. But <ESC> is different than the <SHIFT>, <C=> and <CTRL> 
keyss: <ESC> and another key are not pressed simultaneously, but one 
after each other. 


7.5.1. USING THE AUXILIARY KEYS 


The auxiliary keys can be read at memory location 211 ($D3). If one of the 
<SHIFT> keys or <SHIFT-LOCK> key is pressed, the first bit is set. 
With the <C=> key the second bit is set. The third bit is for <CTRL>, and 
he fourth for <ALT>. The next bit is set by pressing the <CAP-LOCK> 
(<ASCII-DIN>) key. Because these keys can be pressed at the same time, 
there are 31 possible combinations. The following table shows a few of 
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those possibilities. It is not complete and only intended as an example. 
Once you understand the principle, a complete table is not necessary. 


0 - No Extra keys 1 - SHIFT 

2 - COMMODORE - KEY 3 - SHIFT + COMMODORE 

4-CTRL - KEY 5 - SHIFT + CTRL 

8 - ALT 10 - ALT + COMMODORE 

15 - SHIFT+COMMODORE+CTRL+ALT 16-CAPS LOCK 
(ASCI/DIN-KEY) 


7.6. EIGHT ADDITIONAL FUNCTION KEYS 


When the eight existing function keys are not enough, the following 
program will solve your problems. 


To any of the new function keys you can assign text that is sixteen 
characters long, similar to the KEY command, and you can enter all the 
control commands. You get the additional function keys with the <ALT> 
key. You get the first function key, when you press ALT only, the second 
with <ALT> and <SHIFT>. The <C=> key and <CTRL> key in 
combination with <ALT> key activates the third and fourth. As a 
by-product you get four more function keys but those are much harder to 
produce. You would have to push several extra keys and <ALT> key at the 
same time. | 


The following BASIC loader is a program that lets you assign the eight new 
<ALT> function keys. You can't edit the text for the extra function keys 
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displayed. You are then asked if everything is correct. When you program 
your own use for the <ALT> key you can use the same principles as we did 
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in the following machine language program. 


REM 


FOR I 


8 EXTRA FUNCTION KEYS 
= 5120 TO 5190 


READ A 


POKE 


IF A <> PEEK (I) THEN PRINT A,I, PEEK (I) 


NEXT 


I,A 


I 


IF S < > 7375 THEN BEGIN 


PRINT 


END 

BEND 
BANK 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


PRINT 
PRINT 
FOR J 


"ERROR IN DATA " 


O: SYS 5120 
120,169,13,141,20,3,169,20,141 
21,3,88,96,72,152,72,165 
211,168, 41,8,240,29,152,205 
96,20,240,23,141, 96,20,10 
10,10,10,168,185,0,20,240 
13,201,13,240,15,32,210,255 
200,208,241,140, 96,20,104,168 
104,76,101,250,141,74,3,169 
1,133,208,76,55,20 
INPUT OF THE FUNCTION KEYS 

= 0 TO 7 

"ALT-";I + 1 
"INPUT TEXT: 
= 0 TO 14 


REM 


GET KEY AS 


IF AS = 
IF AS = 


MIDS 
POKE 
NEXT 
POKE 


CHRS (10) THEN 330 
CHRS (13) THEN 330 
(BS,J + 1,1) = AS 
5248 + JT +1* 16, 
5 

5248 + J + I * 16,0 


ASC (AS) 


PRINT BS 


INPUT 


"ALL OK (Y/N)";AS 
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Here is the machine language portion of the above routine: 


1400 
1401 
1403 
1406 
1408 
140B 
140C 
140D 
140E 
140F 
1410 
1412 
1413 
1415 
1417 
1418 
141B 
141D 
1420 
1421 
1422 
1423 
1424 
1425 
1428 
142A 
142C 
142E 
1431 
1432 
1434 
1437 
1438 
1439 
143A 
143D 
1440 


03 
03 


14 


14 


14 


FF 


14 


FA 
03 


SEI ;Prevents Interrupt 
LDA #SOD ;Sets Interrupt vector 
STA $0341 

LDA #$14 

STA $0315 

CLI ;Permit IRQ 

RTS ;Back to Basic 

PHA ;Accumulator on Stack 
TYA ;Y¥-Register in Accu. 
PHA ;Accumulator on Stack 
LDA $D3 ;Flag for ALT 

TAY ;Accu. in Y Register 
AND #S08 ;Bit 3 set? 

BEQ $1434 ;No, then $1434 

TYA Value back in Accu. 
CMP $1460 ;Previous Key ALT ? 
BEQ $1434 ;Yes, then $1434 

STA $1460 ;Stores 8 

ASL ;Move four Bits 

ASL ;To the Left 

ASL 

ASL 

TAY ;Accu. in Y register 
LDA$1400, Y;Character 

BEQ $1437 ;$1437 whenzero 

CMP #SOD ;Return ? 

BEQ $143D ;Yes, then $143D 

JSR SFFD2 ;Give out Character 
INY 

BNE $1425 

STY $1460 ;Stores Helpbutton 
PLA ;Accumulator from Stack 
TAY ;Accu. to Y Register 
PLA ;Accumulator from Stack 
GMP SFA65 ;To normal Interrupt 
STA $034A ;Return in Key Buffer 
LDA #S$01 
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mma imma a eee 


1442 85 DO STA SDO 
1444 4c 37 14 OMP $1437, 


7.7. KEYBOARD BEEP 


Here is another little program that gives your C-128 programs a more 
professional appearance: press any key and a low volume beep will sound. 


The program changes the IRQ vector, so it reacts very fast to every key 
press. For this reason it is not written in BASIC, but you can enter it in 
your computer with the BASIC loader. To make programing easier your 
computer will also give out a different tone whenever the <RETURN> key 
is pressed. Below is the assembly language listing for those of you who are 
familiar with machine language. _ 


1400 A9 FF LDA #SFF ; Set Value For 

1402 8D 06 D4 STA $D406 ; the Beeptone 

1405 8D 18 D4 STA $D418 ; 

1408 AY 09 LDA #S09 

140A 8D 05 D4 STA $D405 | 

140D 78 SEI ; Prevents Interrupt 
140E AQ 1A LDA #S1A 

1410 8D 14 03 STA $0314 | ; IRQ-Vector open 
1413 AY 14 LDA #$14 | 


;Beep-Routine 


1415 8D 15 03 STA $0315 set 


a 
1418 58 CLI ; Permits Interrupt 
1419 60 RTS ; Back in BASIC 
141A 48 PHA ,; Accu. on Stack 
141B A5 D5 LDA $D5 ; Val. pushed key 
141D C9 58 CMP #$58 ; key pushed? 
141F FO 24 BEQ $1443 ; Yes 
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1421 C9 4C CMP #S4C ; RETURN? 
1423 DO OD BNE $1431 ; no, then $1431. 
1425 AY 67 LDA #$67 ; stores Frequences. 
1427 BD 00 D4 STA S$D400 ; Tone by RETURN 
142A AY 11 LDA #$11 
142C 8D 01 D4 STA $D401 
142F DO 14 BNE $1445 
1431 c9 01 CMP #S01 ; RETURN key? 
1433 FO FO BEQ $1425 ; Yes, then $1425. 
1435 AY 67 LDA #$67 ; set Frequence for 
1437 8D 01 D4 STA $D401 ; the Beeptone 
143A AY 21 LDA #$21 
143C 8D 00 D4 STA $D400 
143F AQ 11 LDA #$11 ; Waveform 
1441 DO 02 BNE $1445 ; Skip Next Line 
1443 AY 00 LDA #$00 ; Waveform, when no 
key pushed 

1445 8D 04 D4 STA $D404 ; Store Waveform 
1448 68 PLA ; Accum. from Stack 
144A 4C 65 FA JMP SFA65 ; Normal IRQ 

Here is the BASIC loader: 


10 REM KEY SOUND 


20 FOR I = 5120 TO 5195 
30 READ A 
40 S=S +A 


50 POKE I,A 

60 NEXT I 

70 IF S < > 8932 THEN BEGIN 

80 PRINT "?ERROR{SPACE}IN{SPACE}DATA" 
90 END 


100 BEND 

110 SYS 5120 

120 DATA 169,255,141, 6,212,141,24,212 
130 DATA 169,9,141,5,212,120,169,26 
140 DATA 141,20,3,169,20,141,21,3 

150 DATA 88, 96,72,165,213,201, 88, 240 
160 DATA 34,201,76,208,12,169,103,141 
170 0,212,169,17,141,1,212,208 


DATA 
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180 DATA 20,201,1,240,240,169,103,141 
190 DATA 1,212,169,33,141,0,212,169 
200 DATA 17,208,2,169,0,141,4,212 

210 DATA 104,76,101,250 


7.8. PROGRAM PAUSE 


With this routine you can assign a program pause function to any key, you 
can stop program execution with the key of your choice. You can answer 
the door or the telephone without missing any computing. 


If you would like to assign the program pause function to a key other than 
the <NO-SCROLL> key, you have to add the following POKE commands 
to the end of the BASIC loader: 


POKE 5134, N 
POKE 5140, N 


The parameter N must contain the value of the key you choose. You can 
find the exact values in the chapter 7.1. 


The interrupted program resumes when you press any other key. This key 
stays in the keyboard buffer and is read by the next input statement. 


10 REM PAUSE-FUNCTION 
20 FOR I = 5120 TO 5165 
30 READ A 

40 S=S +A 

50 POKE I,A 
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en ZTE 


60 NEXT | 

70 IF S < > 5361 THEN BEGIN 

80 PRINT "?ERROR{SPACE}IN{SPACE}DATA"™ 
90 END 


100 BEND 

110 SYS 5120 

140 DATA 169,11,141,8,3,169,20,141 

150 DATA 9,3, 96,165,212,201,87,208 
160 DATA 10,165,212,201,87, 240,250,201 
170 DATA 88,240,246,169,15,133,2,169 
180 DATA 74,133,3,169,162,133,4,169 
190 DATA 0,133,5,76,227,2 


The routine in machine language: 


1400 AY OB LDA #S0B : Changes Vector 
1402 8D 08 03 STA $0308 ; For "execute 
1405 AQ 14 LDA #$14 ; next BASIC-Line" 
1407 8D 09 03 STA $0309 

140A 60. | RTS ; Back to BASIC 
140B AS D4 LDA SD4 ; Value of Key 
140D C9 40 CMP #$57 ; NO SCROLL? 
140F DO OA BNE $141B ; No 

1411 AS D4 LDA $D4 ; Value of Key 
1413 C9 40 CMP #S$57 ; NO SCROLL? 
1415 FO FA BEQ $1411 ; Yes, then wait 
1417 C9 58 CMP #$58 ; No Key? 

1419 FO F6 BEQ $1411 ; Yes, then wait 
141B AQ OF LDA #SOF : Next BASIC-Line 
141D 85 02 STA $02 ; execute 

141F AQ 4E LDA #S$4A 

1421 85 03 STA $03 

1423 AQ A2 LDA #SA2 

1425 85 04 STA $04 

1427 AX 00 LDA #$00 

1429 85 05 STA $05 

142B 4C E3 02 JMP 
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7.9. HELP & RUN/STOP KEY ASSIGNMENT 


The C-128 has a total of ten function keys, that you can assign yourself. In 
addition to the eight function keys above the numeric keypad, there are two 
more: one of them is the <HELP> key, which is actually function key ten. 
You can reach the ninth function key with the <SHIFT> and 
<RUN-STOP> key combination. This key is assigned with 


DLOAD"* 
RUN 


These lines load the first program from the disk drive and then run the 
program. This text can be changed, but not with the KEY Command. If 
you enter KEY 9 or KEY 10 the computer will print out " ? ILLEGAL 
QUANTITY ERROR". 


But a little program can take care of that problem: 


10 REM FUNCTION KEY 9 + 10 

20 REM [SHIFT] RUN/STOP + HELP 
30 FOR I = 4096 TO 4103 

40 A=A+ PEEK (I) 

50 NEXT I 

60 PRINT "* = RETURN" 

70 PRINT CHRS (27);"F" 

80 FOR I = 0 TO 1 

90 PRINT "FUNCTION KEY # "9 + I 
110 GET KEY BS 

120 IF BS < > CHRS (13) THEN BEGIN 
130 PRINT BS; 

140 B= ASC (BS) 

150 IF B = 94 THEN B = 13 

160 POKE 4106 + A + Z,B 
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170 Z=24+1 

180 IF A+ Z + 4106 '> 4351 THEN END 
190 GOTO 110 

200 BEND 

210 PRINT 

220 POKE 4104 + 1,42 

230 A=A t+ 4 

240 Z2=0 

250 NEXT I 


With this program you can change the assignment of these two keys. If 
you'd like to execute a <RETURN> (CHR$(13)) after the text, you have to 
enter an up arrow (tT). To make it possible to enter commas we used the 
GET command. 


After minor changes, this program can be also used to change the 
assignment of the other function keys. This would be very useful for 
function key assignments with text of more than 128 characters. In this 
case you would obtain an error using the KEY command. 


The assignment of the function keys is in memory at 4096 ($1000) to 4AA2 
($1100). In the first ten bytes, the length of the function key text is stored. 
With these values you can find out the start address of the text. When you 
add the first five bytes to each other, you get the start address to the text of 
F6. You can assign a total of 245 characters to the 10 function keys. The 
program will not allow you to enter a longer text. 


Of course you can use different control characters other than <RETURN>. 


You can enter these directly. Example: If you like to scroll up your screen 
ten times you just push the <ESC> and the <W> key 10 times. 
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If you entered a wrong character you should not use the <INST-DEL> key. 
This key seems to work alright, but the entering of the <—INST-DEL> key 
will then be stored in the function key definition. 
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COMMAND EXTENSIONS 


After you switch on the C-128 it displays the following message: 


COMMODORE BASIC V7.0 122365 BYTES FREE 
(C) 1985 COMMODORE ELECTRONICS, LTD. 
(C)1977 MICROSOFT CORP. 

ALL RIGHTS RESERVED 


Microsoft developed the popular version of BASIC called MBASIC that's 
widely used on CP/M computers. MBASIC has a large command set; 
perhaps this is why the BASIC 7.0 of the C-128 has so many commands. 
BASIC V7.0 is upward compatible to the BASIC V2.0, V4.0 and V3.5. 
The V2.0 version is the grandfather of the other BASICs; the VIC-20 and 
the C-64 contain BASIC V2.0. BASIC V4.0 is used in the large 
Commodore computers, such as the 8000 series. Commands for the disk 
drives were added to the commands of BASIC V2.0 (for example, 
DIRECTORY). 


The next BASIC version, BASIC V3.5, is for the C-16, C-116 (available in 
Europe) and the Plus/4 computers. BASIC V3.5 contained many new 
graphic commands. Programming aids and a machine language monitor are 
also included in V3.5 


The C-128 features BASIC V7.0. Even more commands have been added, 


such as sprite control, music programing (limited in version V3.5) and disk 
commands. And there is another convenient option: the command GO 64. 
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This command turns the C-128 into a C-64 . 


Even with all the new commands, you'll find that more are required. How 
about PRINT AT?, or POP?, or GOTO X? and RESTORE X?. We easily 
could continue this list. As a frequent programmer you'll rely on several 
helpful routines, such as APPEND. What then? You'd usually call them 
with aSYS and some values behind it. But how many addresses can you 
remember, and how understandable is a program when it's full SYS 
commands? 


Luckily it's easy to insert new commands into the operating systems of 
Commodore computers. We use the routine called CHRGET (CHRGET 
means CHaRacter + GET) to accomplish this small miracle. 


8.1. WHAT IS THE CHRGET ROUTINE ? 


When you turn on the C-128 the CHRGET routine is copied from the ROM 
to the RAM. We will explain that later. Right now we'll deal with the 
function of the CHRGET routine. 


With the CHRGET routine, the computer takes a character from the BASIC 
text, meaning from the program memory or from the BASIC input buffer. 
The BASIC interpreter always jumps to the CHRGET routine to get the next 
character. Lets have a look at the CHRGET routine for the C-64: 


0073 INC S7A 
0075 BNE $0079 
0077 INC S$7B 
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0079 LDA SHHLL 
OO7C CMP #S3A 

OO7E BCS S$O0O0O8A 
0080 CMP #5S$20 

0082 BEQ $0073 
0084 SEC 

0085 SBC #S$30 

0087 SEC 

0088 SBC #SDO 

OO8A RTS 


The first three instructions increment the value of the text pointer. The least 
significant byte of the pointer is incremented. But if there is a carry 
(meaning greater than 255), then the most significant byte of the pointer is 
also incremented. When you look at the address of the pointer (called 
$HHLL in the above routine) you will notice it is located within the 
CHRGET routine. Now the ROM - RAM copy procedure makes sense: 
the routine changes itself! 


The actual value of $HHLL is the pointer to a location within the BASIC 

program text. The pointer is called TXTPTR and is actually a vector at 
$007A. The CHRGET routine loads the accumulator (LDA instruction at 
address $0079) with the next character of BASIC text pointed to by 
TXTPTR. » 


This character is checked in several ways. First the character will be 
compared with the ASCII value for the semi-colon. The routine returns 
when the character is larger or equal to this value. If the character is the 
semi-colon, the zero-flag becomes set , in addition to the carry-flag. If the 
character number is smaller, the tests continue. The first test checks to see 
if the character is a space character. If so, the next character will be 
examined. In effect, space characters are ignored (PRINTX has the same 
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effect as PRINT X). The two next commands check to see if the character 
is a number between 0 - 9. 


The CHRGET routine of the C-128 has been changed: 


0380 INC $3D 
0382 BNE $0386 
0384 INC S$3E 
0386 STA SFFOl1 
0389 LDY #S00 
038B LDA ($3D), Y 
0O38D STA SFFO3 
0390 CMP #S3A 
0392 BCS S$039E 
0394 CMP #5820 
0396 BEQ $0380 


0398 SEC 
0399 SBC #$30 
039B SEC 
039C SBC #SD0 
O39E RTS 


The first three instructions increment a pointer again. This pointer is not 
within the CHRGET routine anymore, but in zero page. The next 
instruction assures that the computer takes this information from the correct 
bank. This instruction is similar to the BASIC command BANK 0. RAM 
Bank 0 is always activated. That guarantees that the program can use the 
full 64K of the RAM in Bank O (minus the first few pages that are used by 
the system). 


The next two commands instructions retrieve a character from the BASIC 
text. Because the Y register is used as an offset, it must be set to zero first. 
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The instruction at address $038D switches the banks back again. This 
machine language instruction is equivalent to the BASIC command BANK 
14, which switches on BASIC interpreter, character generator, and RAM 
Bank 0. 


The following instructions are just like the C-64's, meaning the check 
procedure for semi-colon, space character, etc. 


A last word on the CHRGET routine: once in a while the operating system 
jumps to the CHRGET routine at address $0386 ($0079 in the C-64). Then 
it's called CHRGOT. You will also get a character, but the pointer is not | 
incremented. The last character will be read. 


8.2, CHANGING THE CHRGET ROUTINE 


Here we limit our discussion to the C-128, because there is enough 
literature available on how to change the routine on the C-64. To insert new 
commands you have to change the CHRGET routine--but where do you do 
that? Theoretically you could do it anywhere, but only two solutions are 
practical: 


a) Each time you get a character, a certain function will be executed. 


b) A new command must be inserted. 
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In a) you want to change the CHRGET routine at the start. Here is an 


example. Enter the monitor and type in the following assembler listing: 


0380 JSR $0BO00 
0383 NOP 


0B10 STA $D020 
0B13 RTS 


Leave the monitor with the "X" command, type in a character and press the 
<RETURN> key. The border color will change (the border color of the 
forty column screen, because we are manipulating the VIC chip). Let's have 
a Closer look at the listing. 


It has two parts. Part one is located in the CHRGET routine and alters the 
routine itself. When you enter a character now, the computer will call a 
subroutine at $0B00. This subroutine constitutes part two. Here, it 
continues the first part of the CHRGET routine that was replaced by the 
first part. Then the I/O is switched on to gain access to the VIC chip (Bit 0 
is responsible for this; see Chapter 9, "Banking"). The access to the VIC 
chip occurs with the next three instructions. Here we change the border 
color. The bank that was on before the called routine switches on again. 
Finally, you return to the CHRGET routine with a RTS. 
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You have to remember one thing: the functions performed by the CHRGET 
routine must be kept intact. If any section is missing, the operating system 
will not function properly anymore. For example, the system will crash if 
you leave out the instructions in the second part of the assembler listing that 
raise the indicator in the CHRGET - routine. | 


Very seldom are commands one character in length. Usually you would 
like an action performed only if several characters are entered. This 
character sequence becomes the new command. 


The CHRGET routine can accomplish this task. Enter the following 
assembler listing (you should reset the computer before entering the listing): 


0380 INC $3D 
0382 BNE $0386 
0384 INC S3E 
0386 STA SFFO1 
0389 LDY #500 
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This time the CHRGET routine was changed at address $038D. There we 
jump to address $0B00 (this time not JSR, but JMP). The instruction at 
address $0390 (STA $FFO3) was taken from the old CHRGET routine. 
The NOP instruction assigns the free byte in the CHRGET routine. Now to 
the part after address $0B00: 


First the character read is compared with the value $FF (255). This value is 
the token for Pi (1). If the character is not Pi (7), you continue from 
address $0B14. There the CHRGET routine continues. First the character 
is compared with that of the semi-colon. If it is larger, Bank 14 will be 
activated (just like the CHRGET routine); then it will jump to the address 
where the CHRGET routine was called. If the ASCII value of the character 
is smaller than the value of the semi-colon, it continues with the JMP 
instruction to the normal CHRGET routine. 


Let's imagine the entered character was Pi (1). In this case you continue the 
program at address $0B04. Here, Bank 15 switches on to have access to 
the I/O (in this case the VIC). Then, like the other routine, the value for the 
screen border is inverted. Then there's the usual jump back to the 
CHRGET routine, to read the next character. 


Now enter a Pi (x) and press the RETURN key. The border color of the 
forty column screen will change. When you enter Pi (1) again, the frame 
color goes back to normal. 


Contain your curiosity and don't experiment with the Pi (x) character (for 


example, what happens when you enter it in a program line). First, enter the 
following assembler listing: 
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0380 INC $3D 
0382 BNE $0386 
0384 INC $3E 
0386 STA SFFO1 


Two new commands are inserted by this listing: 
a) Pi (x): Here you invert the value for the border color, just like in 


the previous routine. 
b) LET: This command inverts the value for the background color. 


201 


Abacus Software Tricks and Tips for the C-128 





8.3. THE "BEHAVIOR" OF THE NEW COMMANDS 


Enter the character Pi (1%) with a line number and you will see that the 
command will be executed immediately. It will not be carried out in the 
program. Now try out the same with the command LET. The command 
will not be executed right away, but will be executed in a program RUN. 
As you can see the computer can distinguish between normal and new 
BASIC commands. 


Now enter Pi (7) in a line again, but type in a semi-colon at the start of the 
line. Again, the command will be executed immediately, but the line will be 
maintained. That also works when you insert new commands between old 
commands. Enter the semi-colon and the command LET in the line. In this 
case you also maintain the line, and when you start the program the border 
and background color will change. Try the following line: 


10 LET GOTO 10 


Even though it looks wrong, it functions well: the value for the background 
color will change quickly (this effect is really interesting). 


That works in the following format also: 
10 GOTO LET 10 
This works because the interpretation of the BASIC lines will go to the 


(changed) CHRGET routine. The token for GOTO will be read first. 
Because this value does not equal one of the values of the new commands, 
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it jumps back from the character analysis and branchs to the GOTO 
command. There it will jump to the CHRGET routine again, to get the line 
number. But this time the character equals the value of the new command, 
which is $88 for LET. So, the color is changed and then jumped back to 
the CHRGET routine. There the next character, the number 1, is read and 
jumps back to the GOTO command. The command LET is executed but 
otherwise it is ignored. Of course, that works behind any other command. 
But there are some limitations: 


a) The new command cannot be in other commands. The following 
example does not work: 


10 GO LET TO 10 


That is because GOTO becomes changed into a token first. In this 
case the GOTO command will not be identified, so 1t won't get 
changed to a token. But you can place the new command in 
numbers: 


10 A=100LETO 
20 PRINT A 


Here A receives the value 1000. 
b) The new command is not identified in strings. 
10 PRINT "LET" 


will print LET without changing the background color. 
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8.4. SEVERAL ADDITIONAL COMMANDS 


If you want to add more commands, the listing above would be too tedious. 


If you wanted to check for every new command, the command extension 
would grow too large. There is an easier method; as follows: 


0380 
0382 
0384 
0386 


INC 
BNE 


$3D 
$0386 
$3E 
SFFO1 


SFF 
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OB2A $53,  S$OB 
OB2C LDA #$00 
OB2E STA SFFOO 
0B31 LDA SD020 
0B34 EOR #SFF 
OB36 STA $D020 
0B39 LDA $D021 
OB3C EOR #SFF 
OB3E STA SD021 
0OB41 JMP $0380 
OB44 LDA $D021 
OB46 STA SFFOO 
OB49 LDA $D021 
OB4C EOR #SFF 
OB4D STA $D021 
OB51 JMP $0380 
OB54 LDA #500 
OB56 STA SFFOO 
OB59 LDA $D020 
OB5C EOR #SFF 
OB5E STA SD020 © 
OB61 JMP $0380 


In the part after $0B00 three commands are defined: 


a) Pi (2): Functions like above 
b) LET: Functions like above 
c) @ = Pi (x) and LET 


The principles are easy to understand. The codes of the new commands are 
stored in a table, and the addresses where the commands should be executed 
in another table. Take a close look at the listing again: 


$0B00: Here you load the number of new commands in the X-register. 
$0B02: Decrement by one. 
$0B03: When all commands are carried out you jump to address S$OBOC. 
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$0BO05: 


$OBO8: 


$OBOA: 


$OBOC: 


$0B17: 


$0B 18: 
$0B 19: 
SOBIA: 


$OB1D: 
$SOB1E: 


$0B21: 


This BRANCH command also checks if the X-register contains 
the value zero (you also check if X=2). 

Here the entered character is compared with a byte from table 
$0B23 - $0B25. This table contains the values for the new 
commands. 


Here you jump to address $0B17 when the entered character is 


~ equal with one of the new commands. 


If it was not equal, jump to $0B02 and compare the entered 
character with the next command. 

You continue with this address when the entered character does 
not equal any of the new commands. At address $0B16 the 
routine is the same as in the normal CHRGET - Routine. 

You continue here when the entered character was equal with one 
command. The number of the command (0 - 2) will be placed in 
the X-register, 

Multiply by two 

and place back in the X-register again. 

Here is the high-byte of the address where the new command 
Starts, pulled in from the accumulator. 

Stored on the stack. 

Here you get the accompanying low-byte. 

And also stored on the stack. 


You can see for yourself that with the separate X register values, the 
following low/high-bytes become stored on the stack: 
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X-Reg. Low - Byte High - Byte Command 


0 $2B $0B @ 
1 $43 - $0B LET 
2 $53 $0B Pi 


This address must always show one byte below the address where the 
routine really starts. So the command LET starts not at $0B43, but at 
$0B44. The reason for this is in the next command: 


$0B22: Here is the return from the subroutine. But from which 
subroutine? $0B00 was called with JMP, and not with JSR. 
Now by RTS the jump address is called from the stack; first the 
low-byte, then the high-byte. One address was stored in the 
stack by the previous instructions, and called in the program 
counter. This is incremented to get the next command. That is 
why the address had to be one byte lower than the correct 
address. You fool the computer, because you tell it, that a JSR 
instruction brought it to address $0B22 (which is before the start 
of the respective command). 


$0B23 - $0B25: Table with codes of new commands 
$0B26 - $0B2B: Table with addresses of new commands (-1!) 
The new commands, which start at $0B2C, will not be explained again. 


You shouldn't think you can use only commands of one byte lengths, or 
commands that already exist. Of course you can use your own longer 
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commands. The length of these commands can be different. When you 
examine the three tables, please notice that the first contains start addresses 
of the strings which are to be compared, the second contains those strings, 
and the third has the addresses of the commands. 


And here's a last tip; always place an identifying mark in front of your 
commands, such as @. That makes it easier to tell your own commands 
from the commands of the Interpreter. This will make your work easier and 
faster. | 


208 


n 


SAS 


oe 





Abacus Software Tricks and Tips for the C-128 





BANKING 


9.1. THEORETICAL BASICS 


We don't want to write a book about theory, but you should know some of 
the basics about memory management. 


A few years ago the VIC-20 in the standard version had only 5K of RAM. 
It had 3583 Bytes available for BASIC programs. It had a 20KByte of 
ROM, which was extendable to 32K RAM and 24K ROM. Together you 
had 32K + 24K = 56K memory available. This could be addressed with the 
6502 processor,without any problems, because it had 16 address lines 
available which allows for access to 216 = 65536 = 64K of memory. 


In a short time memory became so inexpensive that computers could be 
packed with memory and still remain within the price range of home 
computers. But how was the additional memory supposed to be addressed? 
To install a CPU with more than 16 address lines would result in an 
excessive price increase. 


Engineers worked out three methods to use more memory than can be 
addressed. For C-128 owners only one of these is interesting; its called 
BANKING or BANK SWITCHING. In this method, memory chips are 
installed "above each other" , which contain the total amount of addressable 
memory. This means that two memory banks are located in the exact same 
address range. But only one memory bank is used at a time. To choose a 
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particular bank, you can electronically (under program control) switch 
between those banks. This makes it very easy for the user, but creates a 
problem for the manufacturer of the computer system. 


If, after the bank switching, the program returns to the wrong bank, and 
hence the incorrect program code, the computer will "hang up". It would be 
possible to switch only a certain range (for example, the operating system) 
instead of the total memory range. But that would mean a loss in memory 
size again. There is a possibility to switch the whole memory with an easy 
hardware solution (just like in the C-64, when you read the address $A000, 
then you read from the ROM, but when you write at address $A000 you 
write in the RAM). 


This is enough theory on bank switching and memory management. Let's 
return to the C-128 memory management. 


9.2. BANKING WITH THE C-128 


The Commodore advertisments for the C-128 state that it has 128K Bytes 
RAM (expandable to 512K Bytes) and 48K Bytes of ROM. How can this 
be possible if the microprocessor can only access 64K bytes at one time? 
The memory is overlayed and the proper memory bank is selected when 
necessary. The picture on the next page should clarify this. 


But how is the memory management accomplished? 
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If you examine the memory diagram you will notice that the C-128 uses 
banking somewhat like the C-64 (the C-128 contains more overlayed 
memory banks. To manage this big mess, you need an additional integrated 
circuit. In the C-64 this was the AM (Address Manager). Because 
Commodore owns a company that makes integrated circuits (MOS 
Technology), they quickly designed a new integrated circuit called MMU 
8722 (Memory Management Unit). The MMU controls which bank is 
currently accessed and makes sure that the computer always calls the 
information from the right bank. 
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9.3. SWITCHING THE BANKS WITH THE MMU 


To switch the banks you use only one register of the MMU, register 0. It 
is called the CR (Configuration Register). The bits have the following 


function: 
Bit 


4&5 


6&7 


Function 
Selects the range $D000 - $E000 : 
0=I/0 1 =ROM/RAM 
Selects the range $4000 - $7FFF : 
0 = ROM 1=RAM 
Selects the range $8000 - $BFFF : 
00 = System ROM 01 = internal function ROM 


10 = external functionROM 11=RAM 

Selects the range $CO00 - $FFFF : 
00 = System ROM 01 = internal function ROM 
10 = external function ROM 11 =RAM 

Selects the RAM - Memory : 
00 = RAM - Bank 0 01 = RAM - Bank 1 
10=RAM-Bank2 — 11 = RAM - Bank 3 


Here are some further explanations: 


a) Bits 4 and 5 are dependent on bit 0. This means when bits 4 and 5 are 
set and 0 is not, then the area from $C000 - $FFFF is not completely 
RAM. From $D000 - $E000 is the I/O (Input/Output). RAM would be 
there, when Bit 0 would be set to 1. If Bit 0 is O, the I/O is switched on 
independently of bits 4 and 5. But bits 4 and 5 control the memory 
layout from $CO00 - $FFFF. 
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b) In the present versions of the C-128 bits 6 & 7 make sense in only the 
first two modes because the RAM Banks 2 & 3 are not available yet. 


c) In the area from $FFOO - $FF04 the system memory is located, 
independent from this register. The first of these five bytes ($FFOO) is 
register 0 of the MMU. You are probably wondering why. The 
answer is very simple. Imagine you have the I/O switched off, for 
example, to access to the character generator. Now you would like to 
turn on the I/O, to change the screen color, but how do you switch it 
back on? The registers of the MMU are also in the I/O (excuse us for 
holding that information back so long): from $D500 - $D50B! Now 
the memory cell $FFO0 takes action. Because this register has the same 
function as register 0 you can switch the I/O back on. 


Because banking wouldn't be very user friendly if it could only be done 
using the registers of the MMU, the programmers of the BASIC interpreter 
implemented a new command: the BANK command. The SYNTAX is as 
follows: 


BANK nr 
The nr is a number from 0 to 15 that activates the respective memory 


configuration. On the next page is a chart showing the different memory 
configurations of each bank. 
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Nr: Contents of $FFOO Memory Configuration 
0 $3F $00111111 RAM - Bank 0 
1 S7F = 01111111 RAM - Bank 1 
2  $BF = %10111111 RAM - Bank 2 
3 SFE $11111111 RAM - Bank 3 
4 $16 $00010110 Function - ROM internal, with 
RAM - Bank 0 and I/O 
5 $56 01010110 Like above, but RAM - Bank 1 
6 $96 $10010110 Like above, but RAM - Bank 2 
7 SD6 11010110 Like above, but RAM - Bank 3 
8 S2A 00101010 Function - ROM external, 
with RAM - Bank 0 and I/O 
9 S6A = %01101010 Like above, but RAM - Bank 1 
10 SAA $10101010 Like above, but RAM - Bank 2 
yal SEA $11101010 Like above, but RAM - Bank 3 
12 $06 00000110 Function - ROM internal low , with 
Kernal, RAM - Bank 0 and I/O 
13 SOA $00001010 Function - ROM external low , with 
Kernal, RAM - Bank 0 and I/O 
14 $01 %00000001 Kernal with BASIC, Character - 
generator and RAM - Bank 0 
15 $00 600000000 Kernal with BASIC, I/O and RAM - 


Bank 0 


The command "BANK 15" is the the configuration when the computer is 
turned on. 
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AUTOSTART 


10.1 AUTOSTART FROM THE DISK DRIVE 


Many first time Commodore computer users have difficulty in starting 
their first program; they have not yet learned "computerese". On some 
computer systems, MS-DOS computers for example, it is possible to start 
a program by simply turning the computer on and inserting a disk in the 
disk drive. To start a program with the CP/M and MS-DOS operating 
systems all you have to do is type in the name of the program and press 
the <RETURN> key. 


In the C-64 it was a little harder. You had to enter LOAD, the name of 
the program, "8" (maybe even ",8,1"). But admittedly the C-64 was 
designed for hobbyist programmers, people with some experience in 
using computers. The C-128 is aimed at a different group, the business 
user, and because of this it is equipped with the CP/M operating system. 
As a result it is possible to load programs automatically from disc, starting 
them when the computer is first turned on. This "autostart" routine is also 
called by resetting the computer. 


This "autostart" routine holds several possibilities. You can load any 
number of blocks from disk (but they have to start in sequence from track 
1, sector 1) before you load any program. After loading you can execute 
the program. So you could load in a new language (for example 
FORTH), then a program in the new language and then switch on the new 
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language. The same can be done with BASIC programs. We'll only 
know how many possibilities there are after the C-128 is on the market 
for a while. 


In the next sectionwe will explain the "autostart" routine in detail. If you 
only want to use the "autostart", you don't have to study this section 
simply use the programs presented here. But if you want to know more 
about how these procedures operate, you should continue reading. 


10.1.1. THE BOOT-CALL ROUTINE 
The boot-call routine is located in the operating system from $F890 - 
$F98A. You should call it with address $FF53; this is where it is located 


in the kernal jump table. 


First the listing of the routine: 


F8A7 LDX #S0C 
F8A9 LDA SFA08,X 
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CPX #503 
BCC SF8FB 


JSR $FA17 
4F 54 49 4E 
47 20 00 


BEQ SF92A 
JSR $FFD2 


JSR SFA17 


00 
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F958 LDA #S$3A 


The first two instructions store the contents of the accumulator and the 
X-register in the zero page. The function of these two bytes are: the 
accumulator represents the device address of the disk drive, from where 
you load a program. The X-register contains the device address of the 
disk drive, where you will search the disk for an autostart sequence. In 
most cases these bytes are identical. During a reset both register contents 
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are set to 8. You execute an autostart only on the disk drive with a device 
address of 8. A programmer can jump to this routine in many different 
ways, for example, with SYS DEC ("FF53"),9,9. This command 
searches a disk drive with device address 9 for the autostart track and 
sector. 


The subprogram, called in address $F895, closes all files with the device 
address in the accumulator. The function is clear: the commands and 
data, which are supposed to be sent to the disk, wouldn't reach the disk 
quickly enough if a file was still open. 


The files close in the following manner: first a table is searched which 
contains the device address of the present open files for the determined 
device number. The computer finds the device number in this table 
($0362 - $036B) then it finds the respective file number (the information 
in both tables are in the same place). This file is closed with the kernal 
routine CLOSE ($FFC3). This happens with all open files (the amount is 
in $98). There is a third related table at ($0376 - $037F), this contains the 
secondary addresses of the’ open files (in the same sequence as the other 
two tables). 


The next five instructions of the boot-call-routine set the following zero 
page bytes to the following values: 


SOF (159): 00 
SC1 (193): O21 
SC2 (194): OO 


The address $9F is a counter and will be used later. 
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In $C1 is the track number, in $C2 is the sector number of the block of 
the disk where the information to be loaded is located. The information 
for the "autostart" boot-call is on track 1, sector 0--the first block on the 
disk. This block may not be used for any other data storage if you wish to 
make an “autostart” disk. The ideal solution is, to use only "fresh" 
formatted disks for "autostart" programs. Or check with a disk monitor to 
see if the block is used or not on disks that contain data. 


Track 1 and sector 0 are not only used for the autostart routine, but also to 
load the CP/M operating system. CP/M uses the autostart routine to load 
and execute the new operating system. The next four commands (from 
$F8A1 - $F8A6) are a delay loop. Then 13 bytes from the operating 
system (from $FA08 - $FA14) are copied into the RAM (from $0100 - 
$010C). These bytes have the following values: 


FAO8: 30 30 20 31 30 20 30 20 33 31 3A 31 55 


When you translate these characters to ASCII format and put them in 
sequence you will receive the following command: 


Ul: 13 0 01 00" 
If you are familiar with disk drive commands, the command sequence will 


make sense to you. If you are not familiar with the disk drive commands, 
please be patient. 
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The two instructions from $F8B2 - $F8B6 store the contents from $BF to 
a string. At the start of the routine the address $BF was loaded with the 
chosen device address. That means, you write the device address instead 
of the single zero into the string. 


The next eleven instructions have the following function: 


Value Location Function 


#00 8 86©$C6 Bank - Number for LOAD/SAVE/VERIFY 
#0F $C7 Bank - Number for present file name 
#01 $B7 Length of present Filename 
#15  $BB Low - byte address of file name 
#FA $BC High - byte address of file name 
#00 $B8 Logic data -file number 
#0F $B9 Secondary address 
#BA $BA Device address 


So, the file name is in address $FA15. In this address is the value $49 
(73). This value is the ASCII value of the character "I". Then the 
instruction following (JSR $FFCO) calls the kernal routine OPEN. These 
assembler instructions are the same as the following BASIC command: 


OPEN 0, Deviceaddress, 15, "I" 


The "I" stands for the disk command "INITIALIZE". This command 
reads the BAM (Block Availability Map) of the inserted floppy disk. This 
command is used to check the disks for different IDs. The ID on the disk 
tells the drive if a new disk has been inserted since the last time it read the 
BAM. The Block Availability Map keeps track of the free space on the 
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disk. If you switch disks that have the same ID, the drive still thinks the 
old disk is inserted; this can can cause a great deal of trouble. The 
programmers of the C-128 didn't trust that all of your disks would have 
different IDs, so they inserted this command. 


Using the file number zero you can send commands to the disk drive. In 
address $F8D3 is a BRANCH instruction. This jumps to address $F8EB 
if the disk drive didn't report its presence on the serial bus (for example, 
when it is switched off). In this case you don't get an error message. 
Try it out with the following command (you probably don't have your 
disk drive switched to device address 10). 


SYS DEC ("FF53"), 10,10 
"READY" will appear again. 


When the disk drive reports its presence on the serial bus, you continue at 
address $F8D5. There you set more parameters: 


Value Comes after Function 


#01 ##$$B7 Length of the present file name 
#16 $BB Low - byte address of file name 
#FA $BC High - byte address of file name 
#0D $B8 Logic data - file number 

#0D $B9 Secondary address 

#BA $BA Device address 


The value $23 (35) is in address $FA16, which is the pointer in 
$BB/$BC. The filename is "#". 
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The assembler instructions (with the call of the OPEN Routine in $F8E6) 
is the same as the following BASIC command: 


OPEN 13, Deviceaddress, 13," #" 


In case you are not familiar with the disk drive, this reserves a buffer in 
the disk drive, for the information to be read from the disk. You have 
access to this buffer over channel 13. 


Here you leave the boot-call routine if the disk is not present 1n the disk 
drive. 


The four instructions from $F8EE - $F8F5 set the bytes $AC/$AD to 
$0B00 ( the cassette buffer). These two zero page addresses are used as a 


pointer; the cassette buffer is used to store the characters read from the 
disk. 


Address $F8F6 sends a command to the disk drive and characters are 
called accordingly. This important routine is listed and documented 
below: 


F9D5 LDX #S00 ; Logic Filenumber 
F9D7 JSR SFFC9 ; Output device with Device 
address of file number 0 


FODA LDX #S0OC > Amount of Chars to send-1 


| 
F9DC LDA $0100,X ; Call Character 
F ODF JSR SFFD2 ; And Send (BSOUT) 
F9OR2 DEX ; All Characters ? 
F9E3 BPL SF9DC ; No 
FOES JSR SFFCC ; Close Present I/O Channel 


at IEC - Bus (CLRCH) 
F9E8 LDX #SO0OD ; Logic Filenumber 
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FORA 
F 9ED 
F 9EF 
FOF2 
FOFS 


FOF 6 


FOFS8 


JSR SFFC6 
LDY #S00 
JSR SFFCF 
JSR SF7BC 
INY 
BNE SF9EF 
JMP SFFCC 
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> Device address of file 


with number 13 
Counter to zero 
Enter Character (BASIN) 


> And store in Address 


determined by SAC/SAD (in 
bank determined at $C6) 


; Raise offset for pointer 


SAC/SAD : 
Still not all characters 
(1 Block) | 
Close present I/O Channel 
at IEC-Bus and Jump back 


In this case the message "U1:13 0 01 00" is sent and the block at track 1, 
sector 0 is read into the buffer. This buffer is read and the bytes from 
$0B00 - $OBFF are stored. Then you continue the boot-call routine. 


Next the contents of the addresses $E2C4 - $E2C6 are compared with the 
first three bytes that were read in. If one of these bytes is different, you 


leave the routine just as if the disk wasn't present. This means these three 


bytes contain the information determining whether an autostart will be 


performed or not! The three bytes in the operating system have the 


following values: 


SE2C4 : $43 (67) "Cc" 


SE2C5 
SE2C6 


$42 (66) "B" 
$4D (77) "M" 


The first three bytes from track 1, sector 0 together build the string 


"CBM". 
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If all the bytes are equal, the message "(CR) BOOTING" will be output 
on the screen. This uses the kernal routine PRIMM. 


Then the contents of the addresses $0B03 - $0B06 are copied to the 
addresses $AC - $AF. The contents of the addresses $0B03 - $0B06 
equal the bytes 3 - 6 of the block called from disk. We'll explain the 
function of these bytes later. 


In the next section, locations $0B07 to the next zero (0) are interpreted in 
ASCII and the respective characters are output. The location where the 
zero appeared is stored in $9E. 


Then the PRIMM routine is called again and the text "...(CR)" is output. 
The next two instructions copy the contents of address $AE to $C6. 
Additionally, the address $AE was loaded with the contents of $0B05, 
byte 5 of the block read from the disk. Also, the address $C6 was used 
before, in a previous routine. There the bank where the block was 
supposed to be loaded was determined by the content of $C6. 


In the next section the content of $AF is called. If it is different than zero 
one will be subtracted from the value. If it is zero, you jump to another 


subprogram: 

F9B3 LDX S$C2 ; Sector Number 

F9BS5 INX ; Raise one 

F9B6 CPX #515 ; Already Sector 21? 

F9B8 BCC SF9BE ; No 

FOBA LDX #S00 ; yes, then Sector = 0 
F9BC INC SCl ; And Track No. raise one 
F 9BE STX $C2 ; Sector No. store again 
F9CO TXA ; Sector No. in ACCU 

F9C1 JSR SFOFB ; Sector No.to ASCII code 


230 


Abacus Software 


F9C4 
F9C7 


STA 
STX 
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cer aera screen 


Lower Nibble 
Upper Nibble 
Get Track No. 
Change to ASCII characters 
Lower Nibble 
Upper Nibble 


Upper Nibble = "0" 
Set carry-flag for subtrac. 
Is number 0-9? 

yes, then end | 

No, then raise number 

And try again 

Change low nibble to ASCII 


The subprogram changes numbers to ASCII values; it only functions with 
two decimal numbers. Don't forget this when you use the routine for 
your own purposes. 


So, you may ask, what is the function of the rest of the boot-call routine? 


The content from $AF determines how many blocks are to be read from 
dis; $AC - $AD determines, which address those blocks are to be stored 
(you can't skip pages, the blocks are stored in sequence) and $AE 
determines the bank where the blocks are stored. The blocks go in 
sequence, track 1, sector 1 then track 1, sector 2 etc.. 


But there is more. Regardless of if there are more blocks read or not, you. 
close the opened files in address $F945. 
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eS ae SSS SSS sss ss SS SSS Es Sst 


Then you repeat the counter. Which counter? You might remember that 
in $9E was stored the location where the string ended. Increment this 
counter and get the character at which the counter shows. If it is zero you 
leave this section of the boot-call routine. If it is not zero, increment the 


indicator by one. If zero, increment the indicator again and store it in 
$04. 


In the next section you use the indicator $9E as an offset. At the location 
of the first zero goes the ASCII value for the colon and before that the 
content of $BF. The new counter is now stored. Then, the length of the 
file name is placed into the X-register. If it is zero, you jump over this 
part, because you know another program is supposed to be called. But, if 
it is not zero, it is incremented by two, because the colon and the contents 
of $BF have been added. Then more parameters are set: 


Value Comes After Function 


ACCU $B7 Length of present file name 

$9E $BB Low-byte address of file name 

#0B $BC High-byte address of file name 

#00 $CC Bank-No. for LOAD/SAVE/VERIFY 
#00 $C7 BANK-No. for Present file name 


In address $F979 the accumulator is loaded with a zero to signal that a 
LOAD is required. The subprogram, called in the next instruction, is also 
used by VERIFY. In that case, the flag would be 1. 


Then you load the program. You continue at address $F97E, whether a 
program was loaded or not. 
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Next in address $0004, the value $0B is stored then in $0002 the value 
$OF. Then you jump to the subprogram which is also used by the kernal 
routine. This call does the following: you select the bank, with the 
number in $0002. Then you jump to the address, determined through 
$0003/$0004. This program will be executed. Should this subprogram 
be left with a RTS, the program continues in the bank from which you 
called the program (in this case address $F989). 


In address $F989 you clear the carry-flag. This indicates that the 
boot-call routine was left properly (if the disk drive did not report, the 
carry-flag would be set, see address $F8D3). The routine is left with a 
RTS. 


10.1.2. USING THE BOOT - CALL 


By examining the boot-call routine in the previous chapter, we found out 
that the first block on a disk, track 1/sector 0, must have the following 
byte assignment: 


Byte: $43 (67) ASCII-Value for "C" 

Byte: $42 (66) ASCI-Value for "B" 

Byte: $4D (77) ASCII-Value for "M" 

Byte: Low-byte of address, from which more blocks are 
stored (comes in address $AC) 

Byte: High-Byte of this address (comes after $AD) 

Byte: Bank-number, in which the blocks are to be stored 
(comes after $AE) 


ee a 


Nir 
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7. Byte: Number of blocks to read (comes after $AF) 


8. Byte: To the first zero: Text, given out after BOOTING. 


Behind the first zero to the second: The name of the 
program, which should be loaded after loading the blocks. 
Behind the second zero up to the end program which shall 
be executed after loading. 


Let's try out the new knowledge and create an "autostart" disk.: 


10 
20 
25 
30 
40 
50 
60 
70 
80 


OPEN 1,8,15 

OPEN 2,8,13,"#" 

PRINT #1,"B-F 0 1 0" 
PRINT #1,"B-P 13 0" 
PRINT #2, "CBM" 

PRINT #1,"U2 13 01 0" 
PRINT #1,"B-A 0 1 0" 
CLOSE 2 

CLOSE 1 


If you are not familiar with disk drive commands here is an explanation of 


the program. First you open a data file, giving you access to the 


command channel of the disk drive. Then you reserve a buffer in the disk 
drive. This is because data cannot be written directly to the disk, it has to 
go in a data buffer. In line 25 a block is marked as free. Important! Any 
program on that block will be erased! 


In line 30 a pointer is set to the first byte of this buffer. After this, the 
character sequence "CBM" is written into this buffer. The instruction in 
line 50 will write the data buffer to the disk on the block at track 1, sector 
0. In line 60 this block is marked as "used" and the files are closed. 
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Now call the boot - call routine: 
SYS DEC ("FF53"),8,8 (or SYS DEC ("F890") ,8,8) 


The disk drive starts and after a short time the text "BOOTING..." will be 
output on the screen. Then the computer will probably jump into the 
monitor. Why? Because we assigned the first three bytes of the block, 
only the bytes that permit the autostart. The rest of the block was 
probably filled with zeros, so the computer did not get any more text and 
didn't search for any more blocks or programs. After that the computer 
tried to execute a machine language program, but found only zeros. 
These zeros represent the machine language instruction BRK, so it 
jumped to the monitor (the normal reaction of the C-128 to the BREAK 
instruction). 


Let's enter some more values into our "autostart'’ program. 


10 DIM BY (255) 

20 BY(0)=ASC("C"): BY(1)=ASC("B"): BY(2)=ASC ("M") 
30 BY(3)=0: BY(4)=0: BY(5)=0: BY(6)=0 

40 PRINT CHRS(147);"TEXT BEHIND 'BOOTING':" 
50 FOR ZA=7 TO 252 

60 GET KEY AS: IF AS=CHRS$(13) THEN 80 

70 BY(ZA)=ASC (A$): NEXT ZA 

80 BY (ZA) =0 

90 ZA=ZAt+1: BY(ZA)=0O 

100 ZA=ZA+1: BY(ZA) =96 

110 OPEN 1,8,15 

120 OPEN 2,8,13,"#" 

125 PRINT #1,"B-F 0 1 0" 

130 PRINT #1,"B-P 13 0" 

140 FOR ZA=0 TO 255 

150 PRINT #2,CHRS (BY (ZA) ); 

160 NEXT ZA 

170 PRINT #1,"U2 13 01 0” 
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180 PRINT #1,"B-A 0 1 0" 
190 CLOSE 2 
200 CLOSE 1 


Here you first create an array with 256 elements. The first seven bytes of 
this array (later written to the autostart block) are set, so that the autostart 
can be identified without loading any more blocks. Then you can enter 


any text, but no more than 246 characters. That happens in the following 
lines: | 


Line 80: End of string to output 
Line 90: End of program name 

(0 characters, no program is loaded) 
Line 100: = Program to execute (the command: RTS) 


Then the bytes are written to disk. Start the boot-call routine again after 


running this program. Your text is printed and you are returned to 
BASIC. 


Now for a program using the autostart. When you run the following 
program, the block at track 1, sector 0 will be written so that it starts a 
(BASIC) program with name "HELLO" automatically. The assignment 
of the bytes is as follows: 


Byte O- 6 : Bits for autostart routine — 

Byte 7-26 : Text to print out 

Byte 27 ; Zero as end mark 

Byte 28 - 32 : Name of program to load ("HELLO") 
Byte 33 : Zero as end mark 

Byte 34-52 : Machine Program to Execute (RUN) 
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Now the complete "autostart" program: 


90 


OPEN 1,8,15 

OPEN 2,8,13,"#" 

PRINT #1,"B-F 0 1 0" 
PRINT #1,"B-P 13 0" 
FOR ZA=0 TO 52 

READ A 

PRINT #2.CHRS (A) 

NEXT ZA 

PRINT #1,"U2 13 0 1 O" 
PRINT #1,"B-A 0 1 0" 


100 CLOSE 2 


110 CLOSE 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 0 
DATA 
DATA 


0 
72,69,76,76,79 


1 

67,66,77,0,0,0,0, 

13,40, 67, 41,32,49,57,56, 53,32, 66 
89,32,65, 66, 65, 67, 85, 83, 32 


162,2,189,50,11,157,74,3,202,16,247 


169,3,133,208, 96, 82, 213,13 


The assembler program (data in lines 1060 & 1070) is as follows: 


1 LDX #$02 ; Counter 
Loop 2 LDA table,X ; Get Character 

3 STA $034A,X ; And in Keyboard Buffer 
4 DEX ; One more Character? 
5 BPL Loop ; Yes 
6 LDA #S$03 ; Amount of characters 
7 STA $SDO ; In Keyboard Buffer 
8 RTS ; End of Routine 

Table 9 $52, $D5, $OD ; ASCII for R,Shift+vU 


And RETURN 


The machine language routine also stores RUN in the keyboard buffer. 
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After you have modified your disk with the above program, call the 
boot-call routine again or reset your computer. The text will be output, 
but then you receive a "FILE NOT FOUND" message. Of course, this is 
because the file name "HELLO" is not on the disk. What could a 
"HELLO" program look like? Like this for example : 


10 PRINT CHRS (147) 

20 PRINT"ENTER CHOICE:" 

30 PRINT: PRINT"(1) DIRECTORY" 

40 PRINT: PRINT" (2) LOAD PROGRAM" 
50 PRINT: PRINT" (3) DISC-OPERATION" 
60 PRINT: PRINT: PRINT" (4) FINISH" 
70 GET KEY AS: A=VAL(AS) 

80 ON A GOTO 100,200,300, 400 

90 GOTO 70 

100 PRINT CHRS (147) 

110 DIRECTORY 

120 PRINT: PRINT"- PRESS ANY KEY TO CONTINUE-" 
130 GET KEY AS: GOTO 10 

200 PRINT CHRS (147) 

210 INPUT "NAME OF PROGRAM"-,NAS 
220 LOAD NAS,8,1 

300 PRINT CHRS (147) 

310 INPUT "COMMAND"-,BFS 

320 OPEN 1,8,15 

330 PRINT#1 ,BFS 

340 CLOSE 1 

350 GOTO 10 

400 PRINT CHRS (147) 

410 PRINT"ARE YOU SURE (Y/N) ?" 

420 GET KEY AS: IF AS="N" THEN 10 
430 IF AS<>"Y" THEN 420 


But there are many other possibilities. You could change the name of the 


program called from the boot-call to automatically load your favorite game 
or the program you work with most. 
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The boot-call routine can also load more blocks. You can load a different 
operating system, a different language, etc, etc.. 


The respective data has to be in sequence on the disc (starting at track 1, 
sector 1) and is loaded in the memory in sequence. The bytes that 
determine this loading are the bytes 3 - 6 on block track 1, sector 0 (see 
above). 


No doubt this routine will be used very often, probably by every 
commercial program written for the C-128. But you can use it for your 
own purposes. 


10.2. AUTOSTART BY CARTRIDGE 


Who doesn't know them, those little boxes, which are inserted in the 
expansion port. They are called cartridges. This automatic start by 
cartridge has two advantages: 


1. It is user friendly; the user doesn't have to enter inconvenient 
SYS commands. 
2. The cartridge is harder to copy. 


But how does this autostart work? In the C-64 it worked as follows. 


When the computer was reset it examined the memory locations $8004 - 
$8008. If it found the ASCII values of the character sequence "CBM80", 
it did an indirect jump to the address pointed to in $8000/$8001; which 
means it called the contents of $8000 as the low byte of the address and 
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the contents of $8001 as the high byte. Then the computer jumped to this 


address. 


The C-128 works about the same. After a reset, the computer jumps to a 
subprogram that compares some bytes with fixed values. You will find 
this routine in memory from $E1F0 - $E241: © 


E1F0O 
B1F2 
E1F4 
BE1F6 
E1F8 
BIFA 
E1FD 
ELFF 
E201 
E204 
E207 
E209 
E20A 
E20C 
E20E 
E210 
E212 
E214 
E216 


LDX 
LDY 
STX 
STY 


#SF5 
#SFF 
$C3 
SC4 
#$C3 
SO2AA 
#$02 
#S7F 
SO2A2 
SE2C4,Y 
SE224 


SE201 
#SF8 
#SFF 
$C3 

$C4 
#$01 
#S7E 
SO2A2 
$0002,Y 


$E218 
($0002) 


SE2C3,X 
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B238 STA SFFF4,X 
E23B DEX 

E23C BNE SE235 
E23E STX SFFOO 
E241 RTS 


First the vector at ($C3/$C4) points to address $FFF5. Then it jumps to 
a routine which calls any address from any bank. Here it calls the 
contents of address $FFF7 in Bank 1. This byte will be compared with 
the content of address $E2C6. If these two bytes not identical it jumps to 
address $E224. If they are equal, it tests the next bytes. The following 
addresses are compared: | 


$FFF5 with $E2C4 : $43 (="C") 
$FFF6 with $E2C5 : $42 (="B") 
$FFF7 with $E2C6 : $4D (="M") 


So, unlike the C-64, only three bytes are tested, which are enough. 
These three bytes equal the string "CBM", which is also used in the 
autostart routine of the disk drive. If these are identical, you call the 
contents of the addresses $FFF8 and $FFF9 and store it in the address 
$0002 and $0003. Over this vector an indirect jump is carried out. To 
execute an autostart, the following bytes must be assigned as follows: 


$FFFS: $43 ("C") 
$FFF6: $42 ("B") 
$FFF7: $4D ("M") 


$FFF8: Low-Byte determined jump - address 
$FFF9: High-Byte determined jump - address 
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The routine jumped to in case of an error must be in Bank 15. Jumping 
to a routine at $A000 in the RAM of Bank O doesn't work, because the 
BASIC interpreter is in Bank 15. But you can jump to a routine in the 
cassette buffer, which is shared by the respective memory configuration. 


Here is a short explanation before we show some examples of the uses of 
the cartridge autostart. When the bytes are not equal you don't jump to 
BASIC as in the C-64. 


At address $E224 the first two instructions select the memory 
configuration for Bank 15. The only difference is that you select RAM 
Bank 1 instead of RAM Bank 0 (remember: RAM BANK 15 turns on all 
the system ROMs). Then you store the following values in the addresses 
$FFF5 - $FFF9: 


SFFF5: $43 ("C") 
SFFF6: $42 ("B") 
SFFF7: $4D ("M") 
SFFF8: $24 
SFFF9: SE2 


That's why an autostart is performed after every reset, but only with the 
normal reset routine. 


Now take a look at these bytes: enter the monitor and enter M 1FFF5. 
As you can see, the addresses $FFFS - $FFF9 are assigned with the 
values above. Now enter your own address for the autostart: change 
byte $24 to $4D. Now change byte $E2 to $FF. You now will jump to 
address $FF4D instead of address $E224 when a reset occurs. This 
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address initializes the C-64 mode. Try it out: push the reset button. After 
a short time (the 80 column screen might start to blink) you are in the 
C-64 mode. 


And another thing: switch the computer off for a very short time and then 
back on. As you can see, the computer comes on in the C-64 mode! No, 
don't be afraid; it is not broken. In the C-128 the RAMs don't clear as 
fast as in the C-64. That's why the values from $FFF5 - $FFF9 stayed in 
the computer. Turn your computer off for a little bit longer and you will 
come back in the C-128 mode. The longer "life" of the RAMs has two 
advantages: first, a power loss does not affect the operation of the 
computer; and second, your programs stay in the computer after you 
switched it off for a short time. 


Of course, you can also start BASIC programs with a reset. You have to 
change the vector at $FFF8 - $FFF9 to your own routine, which 
simulates the RUN command. In the C-64 it was possible with the 
following assembler commands: 


JSR SA659 ;CHRGET On Program start + CLR 
JMP SA7TAE :Interpreter loop 


We can accomplish the same thing on the C-128 in a different manner. 
Because the C-128 has a keyboard buffer, we store the string RUN and 
RETURN in the buffer and then quit the program. This starts the BASIC 
program in memory. An assembler listing would look as follows: 
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LDX #$02 ;Counter 

Loop LDA table,X ;GET CHARACTER 
STA $034A,X ;In the Keyboard Buffer 
DEX ;One more Character? 
BPL Loop ;Yes 
LDA #S$03 ;Number of characters 
STA SDO ;In the Keyboard Buffer 
RTS 

Table $52, $D5, $0OD ;ASCII for R,SHIFT+U 


;And RETURN 
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C-128 MEMORY 


11.1 IMPORTANT ADDRESSES 


The C-128's new BASIC is one of the most complete BASICs available on 
a microcomputer today. But with the C-128 you can do a lot more than the 
standard BASIC commands allow--without using machine language. The 
key is the zero page, which is made up of the first 256 memory locations. 
They contain a lot of pointers and addresses used by the operating system. 
Modifying these pointers and addresses will let you create your own special 
operating system, allowing you to do things not possible with normal 
BASIC commands. 


The Commodore 128 has several zero pages, because its operating system 
is more complex than those used by previous Commodore computers. 


The following pages contain interesting memory locations and suggestions 
for using them. Don't be afraid of destroying your computer when 
modifying the memory locations. About the worst you can do is lock up the 
computer, but usually a reset will put everything back to normal. If that 
fails, then you'll have to turn off the computer and turn it back on. 


Beside the addresses of the C-128 you will find the corresponding C-64 
addresses in parenthesis. This means you can translate your old C-64 


programs to the new C-128. Both modes are fairly compatible. 


Here are some interesting memory locations and their functions. 
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(decimal location) (comment) 


45 - 46 (43-44) BASIC Start (Bank QO) 


This memory location contains the start address of where the BASIC 
programs are stored in the memory (in Low-byte/High-byte formula, 
Bank QO). The command: 


PRINT PEEK (45) +256*PEEK (46) 


prints this address. You can also move the start-of-BASIC address. 
To do that type: 


POKE45, lo:POKE 46, hi:POKE (10+256*hi)-1,0:NEW 


This command sequence has to be entered in direct mode. lo and hi 
are the low-byte/high-byte for the new start address. These bytes are 
calculated as follows: 


HI=INT (address/256) : LO=address- (256*HT) 


You erase the program in the memory if you shift the start of BASIC. 
Remember that you usually can't shift the start-of-BASIC. This 
memory area is reserved for the operating system! 


{ 


47 - 48 (45-46) VARIABLE Start (Bank 1) 


These two bytes point to the start of variable-memory (in bank 1). 
This pointer can be read or manipulated like the BASIC start (above). 
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59 - 60 (57-58) Current BASIC-Line Number 


The current BASIC line number is stored in these bytes. Therefore 


the readout of these addresses makes sense only in the program 
mode: 


10 PRINT "This line #";PEEK (59) +256*PEEK (60) ; 


"in use!" 
65 - 66 (63-64) Current DATA line number 


This pointer is interesting if you use the commands READ and DATA 
in your programs. It contains the line number of the line where you 
READ the last DATA element; the following program demonstrates 
this: 


10 READ A: IF A=1 THEN END 

20 PRINT"THE ELEMENT A IS IN LINE "; 
30 PRINT PEEK (65) +256*PEEK (66) ;"!" 
40 GOTO 10 

590 DATA 3,6,4,8,4,6,2, 

57 DATA 33,6,4,2,4,2,4, 

99 REM TEST PROGRAM 
167 DATA 3,7,4,9,6,0,0, 
190 DATA 5,7,5,-1 


This address is also useful in finding errors. You find the error with 
the pointer that gives you the line number where the error occurred. If 
your program contains a string and your program allows numerical 
DATA only, the following BASIC program is handy: 
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10 READ AS:IF ASC(A$)<50 OR ASC(A$)>60 THEN1000 
20 A=VAL(AS) :IF A=-1 THEN END 

30 PRINT A, :GOTO 10 

40 DATA 4,3,7,54,3,5,2,444 

50 DATA 3,5656,a,3,0,4,2,2,2,:REM Error line 

60 DATA 4,6,3,5,6, 


1000 REM ERROR MESSAGE 

1010 PRINT"IN LINE"; PEEK (65) +256*PEEK (66) ; 
1020 PRINT"ERROR FOUND. ONLY NUMBERS "; 
1030 PRINT"ARE ALLOWED !" 

1040 PRINT"CHANGE THIS!":END 


208 (198) Number of keys pressed 


This pointer contains the number of characters you entered with the 
keyboard. 


POKE 208,0 


clears the keyboard buffer. 


213 (203) Keyboard reading 


The value of the key actually pressed is stored in this address. It has 
the value 88 if no key is pressed. 


10 PRINT CHRS (147) ; 
20 PRINT PEEK(213) :GOTO 10 


prints the value of the key pressed. 
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215 (---) 40/80-column Flag 


This address shows you which screen is active. Bit 7 is set in the 
80-column-mode, PEEK(215) = 128: 


10 A=PEEK (215) 


The following addresses refer to the 40-column and 80-column screens. 
These memory locations are revised when switching to the other screen. 
Therefore, you always find the value for the active screen in these locations. 


241 (646) Actual character color 


There are 16 colors available for characters on the screen. Normally 
control-characters are used to turn on the colors. But this is 
impractical and hard to follow in program listings. Often it is easier to 
use this memory location. It contains the value of the actual character 
color (0-15) and is very easy to manipulate. 


10 A=INT(RND(1)*16) :REM Random number 0-15 | 
20 POKE 241, A:Set character | 
30 PRINT"*"; 

40 GOTO 10 


Here is a short summary of the color combinations: 


0  : Black 1  : White 2  :Red 
3 :Cyan 4 : Violet 5 __: Light green 
6 :Blue 7 ~~: Yellow 8  :Light red 
9  : Brown 10 :Lightred 11 #£:Greyl 
12 :Grey2 13. :Lightgreen 14 ~~ : Light blue 
15 =: Grey 3 (Only for a 40-column screen) 
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QO  : Black 1 :Grey2 2 :Bilue 
3 :Lightblue 4 :Green 5: Light green 
6 Grey 1 7  :Cyan 8  :Red 
9 :Lightred 10 #£:Darkviolet 11  : Violet 
12 Brown 13: Yellow 14 :Grey3 
15: White (Only for a 80-column screen) 


You don't have these colors if you work with a monochrome screen. 
The colors are transformed into different shades of green, grey, etc. 
There are only 5 steps of brightness available for all 16 colors. You © 
have to use colors with different brightness if you want to use them 
on a monochrome screen. Here is the order of brightness: 


1. Black 

2. Red, Blue, Brown, Grey 1 

3. Violet, Orange, Light red, Grey 2, Light blue 
4. Turquoise, Yellow, Light green, Grey 3 

5. White 


The 80-column screen has additional features. The bits 4-7 have the 
following functions: 


Bit 4 : Flashing 

Bit 5 : Underline 

Bit 6 : Reverse 

Bit 7 : 2nd set of characters 


Bits 4 and 5 only affect the next PRINT statement after the POKE 
command. 


POKE 241, 15+2%°4 : PRINT "TEST" 
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Puts a white, flashing "TEST" on the screen. 
POKE 241, 2+2°5+2%7 : PRINT "HELLO" 


The above prints a blue-underlined "HELLO". This means you can 
mix the different functions! The functions "reverse" (bit 6) and "2nd 
set of characters" (bit 7) are constant functions; they refer to all 
following PRINT orders and to the direct mode. A RVS-mode like 
this cannot be turned off by CRTL+9! 


243 (199) RVS-Flag 


Corresponding to address 241, this address determines the kind of 
characters that are to be shown on the screen. Reverse or normal 
(there is also a control-character for this). 0 = normal, 1 = reverse: 


10 POKE 243,0:PRINT "NORMAL and "5 


20 POKE 243,1:PRINT "..... REVERSE!" 


244 (212) Quote-Mode-Flag 


Quote-mode means control-characters are not active between 
quotation marks, but instead display control characters on the screen. 
If you turn the quote-mode on (=1) the following control characters in 


a PRINT statement are ignored and their control characters are printed 
on the screen. 
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POKE 244, 1 : PRINT"{3crsrdwns}{rvson}HELLO !" 


247 (657) C=/SHIFT Stop-Flag, CRTL-S 


You know how to change the character set by pressing the <SHIFT> 
key and the Commodore key (<C=>). You can also do this while a 
program is being executed. It doesn't disturb the running program, 
only what you see on the screen. This can be disabled: 


POKE 247,128 (locked) 


POKE 247,0 (normal) 
POKE 247, 64 (disable CTRL-S) 


248 (---) Scrolling Stop-Flag 


Once you have reached the lowest screen-line and print on the next 


line, the screen contents are shifted one row up. You can eliminate 
this effect: 


POKE 248, 128 (Scrolling off) 
POKE 248, 0 (Normal) 


249 (---) Beep-Tone Stop-Flag 
Here it is possible to disable the beep-tone. It is generated by: 


PRINT CHRS$(7) (Program-mode) or 
CTRL+G (Direct-mode) 


254 


Abacus Software Tricks and Tips for the C-128 


Try this: 


POKE 249, 128 (off) 
POKE 249, 0 (Enables the beep-tone again) 


By the way: SYS 51602 generates the tone. But you can do more 
with the tone than just give a signal. 


FOR X=0 TO 100:SYS 51602:NEXT X 


This gives you a longer tone, depending on the X-value. 


All the following addresses are common and not tied to the active screen. 
They are not in the true zero page. 


842-852 (631-640) Keyboard-Buffer 


These ten bytes are the buffer for keys entered from the keyboard. 
They can be used for many programming applications. There are too 
many possibilities to describe here, but we'll give you one example: 


10 POKE 842, ASC("L"): POKE 843,ASC ("I") +128 
20 POKE 844,13 

30 POKE 208, 3 

40 END 
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1024-2023 (1024-2023) 40-Column Screen Memory 


These 1000 bytes contain the 40-column screen. This area is not used 
if you work with a 80-column screen; you can use it for own machine 
language programs. Otherwise: 


POKE 1024 +X + 40 * Y,Z 


X=Column 
Y=Row 
Z=Character-code 


places a character on the 40-column screen. 


2592 (649) Maximum Length of the Keyboard-Buffer 


The length of the keyboard-buffer is defined with this address. 


POKE 2592,0 (turns off the buffer, keys are no longer stored) 
POKE 2592,10 (normal) 


The length of the keyboard-buffer should not exceed the maximum 10 
because this is the maximum of available space reserved in memory! 


2593 (---) CTRL-S Flag 


A running program stops when <CTRL-S> is pressed, and continues 
when any other key is pressed. Many larger computers have this 
function. It is very useful if you only want to interrupt the program 
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2594 


2595 


for a short while to have a closer look (or have a quick breakfast). 
But you can use this address in a completely different way. You 
simulate the <CTRL-S>. The program stops and waits for the next 
key pressed. 


10 PRINT "PRESS ANY KEY " 
20 POKE 2593,1 
30 PRINT "OK" 


(650) REPEAT-Flag 
The C-128 has a REPEAT-function for all keys. This means if you 


depress a key for a short period of time the character will be printed 
continuously. 


POKE 2594, 0 (space bar and cursor keys) 
POKE 2594, 64 (no keys with repeat function) 
POKE 2594,128 (normal) 

(651) REPEAT-delay 


The computer continues normal printing after a short delay. The delay 
time can be adjusted with this address, so you can choose a long 
delay. No delay makes sense as a controller (with a GET ). 


POKE 2595,X 
X=delay time 
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2598 (---) VIC Cursor-Mode 


This address controls the flash of the cursor, but only the cursor 
controlled by VIC chip. This means the address will work only in 
40-column mode. 


Bit 6 : 1=solid 
O=flash 


POKE 2598,0 (Cursor flashes, normal) 
POKE 2598,64 (Cursor doesn't flash) 


2599 (204) VIC Cursor on/off-Flag 


This address works only with the 40-column screen. You can activate 
the cursor with this address. The following demonstrates what you 
can do with this address: 


Bit O : 1=Cursor on 
OQ=Cursor flash 


10 POKE 2599, 0:REM CURSOR ON 
20 PRINT "HELLO!"; 

30 FOR T=1 TO 5000: NEXT T 
40 PRINT "THAT'S IT!" 

50 END 


This can be used effectively with the command GETKEY. This 
command waits for a key press and then stores the character. It is 
different from the INPUT command in that the cursor does not flash 
to get the user's attention. Here is an example: 
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10 POKE 2599, 0 
20 GETKEY AS 
30: <e:« « ) 


This works with the GET command too. 


2603 (---) VDC Cursor-Mode 


You can influence the cursor of the 80-column screen at address 
2598. The bits of this address mean: 


BitO 1=solid 

Bit 2-3 Display in pixel rows 
Bit 4-5 Cursor off 

Bit6 . 1=flash 


-POKE 2603, 2%0+2%1+2%2 
This activates the underline cursor. The thickness of the cursor 
depends on the bits 2 and 3. 
2604 (---) VIC Pointer to Screen-RAM / character set 
The content of this address are transferred automatically to address 


53272 of the VIC. The contents determine the start addresses of the 
screen-RAMs and the character generator. 
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2606 (648) VDC High-Byte of the screen RAMs 
This address is responsible for the 80-column screen again. Here you 
can shift the screen-memory with the registers 12 and 13 of the VDC. 
2607 (--) VDC High-Byte of the color memory (attribute-RAM) 
The High-Byte of the 80-column attribute-RAM is stored here. It is 


related to the previous address because you can move the 
color-memory in the 80-column mode. 


2619 (648) VIC Hi-Byte of the screen RAMs 
This address has the same function as the address 2606.at the VDC. 
You find the start address of the 40-column screen-RAM here. 
2816-3327 (828-1029) Cassette buffer 
This relatively large area is used by the system only if you work with 


the Datasette. This area is not used if you use the disk drive. It offers 
room for machine language routines. 
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4096-4105 (---) Assignment-length of the function keys 


Each of these ten bytes is reserved for one of the ten function keys 
(<F1-8>, <HELP> and <SHIFT+RUN/STOP>). The length of the 
function key assignment is stored in these bytes. Set the 
corresponding byte to zero if you want to turn off the assignment of a 
function key (for example: if you want to read a key in your own 
program). 


POKE 4096,0 (erases assignment of F1) 


4624-4625 (55-56) Pointer pointing to end-of-BASIC 


The highest address of a BASIC program is stored in these bytes (in 
bank Q): 


PRINT PEEK (4624) +256*PEEK (4625) 
The size of your program is easily determined: — 


PRINT (PEEK (4624) +256*PEEK (4625) ) - 
(PEEK (45) +256*PEEK (46) ) 


In case you want to write your own machine language program at the 
end of the memory in bank 0 (BASIC-memory) you can limit the 
BASIC-memory with these two addresses so that your machine 
language program is protected from being overwritten. 
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11.2. JUMP TABLE 


Important to every machine language programmer is a solid understanding 
of the operating system. This allows him/her to create shorter programs in 
the least amount of time. He/she simply takes prepared routines, instead of 
writing them. We don't want to write a second COMMODORE-128 
INTERNALS, but we'll choose some popular routines and show you how 
to use them. 


There are several jump commands with powerful routines included in both 
the BASIC interpreter and the operating systems of the C-128. Let's go to 
the most important and best known routines first: 


11.2.1 KERNAL 


The C-128, like every other Commodore computer, has a Kernal jump table 
at the end of the ROM. It provides easy access to important kernal routines 
and allows quick program conversions to other Commodore computers. 
This table is greatly extended compared to the C-64 or VIC-20. We want to 
introduce the section of the table from $FF4D-$FF7E. . 


There are some routines designed exclusively for the C-128. There is, for 


example, the C-64-mode routine that turns the C-128 into a C-64. There are 
also some routines to read different memory banks. 
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Another interesting aspect is that Commodore has assigned a byte with the 
value zero between the old and new kernal table ($FF80). This is the 
number of the Kernal table. There is also a new address directly in front of 
the addresses for NMI, Reset and the IRQ. This address, at $FFF8/$FFF9, 
points to address $E224 and is called C-128 mode. Let's examine the 
secrets of the new jump table. 


Kernal-address: $FF4D (65357) 


Name: C64MODE 
Real jump-address: $E24B (57931) 
Function: Transforms the C-128 into the C-64 


The name of this function is self-explanatory. 


Kernal address: $FF50 (65360) 

Name: DMA-CALL 

Real jump address: $F7A5 (63397) 

Function: access to the DMA-controller 


You can control the DMA-controller (Direct Memory Access) with 
this routine. This routine becomes interesting with versions of the 
C-128 with more than 128K RAM, because it works only with the 
extended RAM. 
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Kernal-address: $FF53 (65363 ) 

Name: BOOT-CALL 

Real jump-address: $F890 (63632) 

Function: Load and start program from disk 


With this routine you can load and start a program immediately from 
the disk. It is possible to start programs after turning on the 
computer, because this routine is called with a reset. 


Kernal-address: $FF56 (65366) 
Name: PHOENIX 

Real jump-address: F867 (63591) 
Function: Start external-ROM's 


You can start external ROM's (cartridges) with this routine. 
Immediately after PHOENIX is done, it jumps to the BOOT-CALL 
routine. This routine is also called with a reset. 


Kernal-address: $FF59 (65369) 

Name: LKUPLA 

Real jump-address: $F79D (63389) 

Function: Gets entry for file number 


If you call this routine you enter the file number in the accumulator 
and you get back: 


Accumulator: File number 
X-Register: Device address 
Y-Register: Secondary address 
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It returns with a set Carry-Flag if the file number was not found. 
Otherwise this Flag is reset. This routine uses a different routine at 
$F202. This routine looks to see if a given file number already exists 
in the X-Register. It returns with a reset Zero-Flag if the file number 
already exists. Otherwise the Zero-Flag is set. 


Kernal-address: _ $FF5C (65372) 

Name: LKUPSA 

Real jump-address: $F786 (63366) 

Function: Look up secondary-address 


This function is comparable to the last one. But the 
secondary-address is in the Y-Register. This routine does not look for 
several equal files with the same secondary-address. It looks up the 
entry of the first found file belonging to the secondary-address. After 
the return, all three registers contain the same values as the routine 


before: 

Accumulator: File number 
X-Register : Device address 
Y-Register : Secondary address 


The flags are set the same way. 
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Kernal address: $FF5F (65375) 

Name: SWAPPER 

Real jump-address: $CO02A (49194) 

Function: Switch between 80 / 40 column-screen 


The screen is switched if you execute this routine. If you were in the 
40 column mode and this routine is called, your input now appears on 
the 80-column-screen. We will now have a closer look at this routine. 
Beginning with address $FFSF it jumps to address $CD2E (why 
make it easy if you can make it complicated?) At $CD2E the 
following is executed: 


CD2E LDX #S1A 
CD30 LDY S$0OA40,X 
CD33 LDA SEO,X 
CD35 STA S0OA40,X 
CD38 TYA 

CD39 STA SEO,X 
CD3B DEX 

CD3C BPL $CD30 
CD3E LDX #SO0OD 


CD40 LDY S$0OA60,X 
CD43 LDA $0354,xX 
CD46 STA S$0OA60,X 


CD49 TYA 
CD4A STA $0354,xX 
CD4D DEX 


CD4E BPL S$CD40 
CD50 LDA $D7 
CD52 EOR #$80 
CD54 STA SD7 
CD56 RTS 


In the first section (up to $CD3D) the memory-blocks $E0-$FA and 
$0A40-$0A5A are exchanged. In locations $0A40 to $0A5A are 
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stored the screen-values for the screen not currently being used 
(cursor position, insert-mode-flag, quote-mode-flag, etc.). The 
routine continues in the same manner when you leave the current 
screen to switch back to the other screen. Try it out. Get in the 
quote-mode by entering a quotation mark. Press the cursor keys a 
few times. Now enter ESC+X (press slowly, one after the other) and 
enter something on the other screen. Now change back to the other 
screen and press the cursor keys a few times. As you can see, you are 
still in the quote-mode. Change to the other screen and enter: 


POKE DEC ("0A54") ,0 


Go back to other screen and press a cursor key; no control-character 
is printed, but the cursor moves. Why? Because the above POKE sets 
the quote-mode-flag to zero. This register was copied when you 
switched back to the other screen and the quote-mode was gone. 
Therefore, you can predetermine with POKEs how your other screen 
will look after you switch back. Also, have a look at the addresses in 
the description of the zero page ($E0-$FA). We'll give you a formula 
to calculate an address on the closed screen in relation to the one in 
use: 


new address=old address +4200 (fantastic isn't it ?) 


Let's go back to the SWAPPER routine. The next eight commands 
exchange two more blocks. 


a) $0354 - $035E (Tab -Stops) with $0A60-$0A6A 
b) $035F - $0361 (Line-links) with $0A6B-$A6D 
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Between the addresses $CD50-$CDS55 the screen is changed. 
Therefore bit 2 of $D7 is inverted and this ends the routine. 


Kernal-address: $FF62 (65378) 

Name: DLCHR 

Real jump-address: $CO27 (49191) 

Function: Initialize the VDC character-generator 


This routine copies the VDC's character-generators for 40 column to 
that for a 80 column. The character-generator of the VDC doubles its 
size (to 8K) because it copies eight zero-bytes between each 
character. 


The next seven routines are the most important routines for accessing 
different banks. 


Kernal-address: $FF68 (65384) 

Name: SETBAK 

Real jump-address: $F73F (63295) 

Function: Verify the bank for SAVE / LOAD / VERIFY 


This routine has only 3 commands: 
SF73F STA $C6 ; bank number, where the program is located. 
SF741 STX $C7 ; ~~ bank number, where the file name is located. 


SF743 RTS 


Vector $BB / $BC contain the address of the file names. 


268 


Abacus Software Tricks and Tips for the C-128 





Kernal-address: $FF6B (65387) 

Name: GETCFG | 

Real jump-address: $F7EC (63468) 

Function: Get configuration number. 


You have to load the X-register with the number of the desired bank 
(0-15) before you jump to this routine. You get back a byte in the 

~ accumulator. This byte corresponds to the assignment of the MMU's 
configuration register, so that the desired bank can be chosen. You 
only have to store it in the address $D500 (S$FFOO). The chapter about 
the MMU tells you which memory configurations follow the single 


bank numbers. 
Kernal-address: $FF6E (65390) 
Name: JSRFAR 
Real jump-address: $02CD (717) 
Function: Starting a subprogram in any bank 


This function lets you call a subprogram in any bank. The computer 
returns to the bank that originally called the routine after it finishes the 
subprogram. Before calling (you must use JSR) you have to load the 
following memory locations and registers with the corresponding 


contents: 

$0002: Number of the desired bank 

$0003: High-byte of the desired address 

$0004: Low-byte of the desired address 

$0005: Desired status-register (to turn off the IRQ, 


turning on the decimal -modes, etc.) 
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$0006: Desired accu 

$0007: Desired X-register 

$0008: Desired Y-register 

$0009: Number of the calling bank 


The following addresses contain the new register contents after the 


return: 

$0005: Status 
$0006: Accu 

$0007: X-register 
$0008: Y-register 
$0009: Stack-pointer 


What you do with these values is up to you. You also can load the 
memory location $0006 into the X-register and save a 
transfer-command. 


Kernal-address: $FF71 (65393) 
Name: JMPFAR 

Real jump-address: $02E3 (739) 
Function: Jump to a bank 


With this routine a jump to any bank is executed. This routine is also 
used by JSRFAR. Therefore the call is very similar: 


$0002: Number of the desired bank 
$0003: High-byte of the desired address 
$0004: Low-byte of the desired address 
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Desired status-register 
Desired accu 

Desired X-register 
Desired Y-register 


Here the call has to be made with the JMP command. 


Kernal-address: 
Name: 

Real jump-address: 
Function: 


$FF74 (65369) 

INDFET 

$F7D0 (63440) 

Get a byte from any bank 


With this routine you can get the contents of any bank. Call the 


routine as follows: 


$02B9: Low-byte of the vector pointing to the desired memory 


location.The vector has to be initialized (it has to contain the 


desired address split in Low-and High-byte). This vector 


must be in the zero page. 


Accu: Byte, where you want to enter the desired address 

X-Reg: Number of the desired bank 

Y-Reg: Offset that is eventually added to the address (normally zero, 
if you don't ask for an index). 
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Kernal-address: 
Name: 

Real address jump: 
Function: 


$FF77 (65399) 
INDSTA 

$F7DA (63450) 

Stores a byte in any bank 


This is the opposite of INDFET. To store a byte the following 
addresses and registers have to be set: | 


Accu: 


X-Reg: 
Y-Reg: 


Kernal-address: 
Name: 

Real jump-address: 
Function: 


Low-byte of the vector 

(it points to the desired address like INDFET). 
Number of the desired bank 

Offset 


$FF7A (65402) 

INDCMP 

$F7E3 (63459) 

Compare accumulator and byte in any bank 


This function compares the contents of an address with the contents 
of the accumulator in any desired bank. The usual flags for 
comparing are set (Zero-Flag=1 if both are equal, etc.) The following 
memory locations have to be set before calling: 


$02C8: 
Accu: 


X-Reg: 


Vector low-byte pointing to the desired address 
Character to be compared with the contents of 
the addressed memory location. 

Number of the desired bank 
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Kernal-address: $FF7D (65405) 
Name: PRIMM 

Real jump-address: $FA17 (64023) 
Function: Print a string 


The old part of the Kernal contains a routine to print out a single 
character (BSOUT). You can print out a string with this routine in a 
simple but clever way. The characters to be printed are simply placed 
behind the call to the routine. This results in the following: 


JSR SFF7D 
(any text, a zero for an end mark.) 
RTS 


But how can this be? How does the computer reach the finishing 
RTS? Let's have a look at the routine again: 


FA17 PHA 

FA18 TXA 

FA19 PHA 

FAIA TYA 

FA1B PHA 
FAI1C LDY #$00 

FALE TSX 

FAIF INC $0104,X 

FA22 BNE S$FA27 

FA24 INC $0105,X 

FA27 LDA $0104,X 

FA2A STA SCE 

FA2C LDA $0105,X 

FA2F STA SCF 

FA31 LDA (SCE),Y 

FA33 BEQ SFA3A 

FA35 JSR S$FFD2 

FA38 BCC SFAI1F ' 
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FA3A PLA 
FA3B TAY 
FA3C PLA 
FA3D TAX 
FA3E PLA 
FA3F RTS 


First the contents of the accumulator and the X-Registers are stored 
in the stack, then the Y-Register, which is later used with indirect 
indexed address, as an offset, is stored in the X-Register. 


Now the important part of the routine begins. The stack pointer points 
to the next free location on the stack. To understand what happens 
you have to know how the stack is built as well as its position. In the 
C-128 it is located in memory from $0139 to $01FF. The stack 
pointer first points to $01FF and becomes smaller as more elements 
are put on the stack. 


Weill simulate how the stack reacts when you call it with this routine. 
Let's say the stack pointer contains the value $FO and as a result 
points to the address $01FO. The stack looks something like the 
picture on the next page: 
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SO1LFO Stack Pointer 


SO1FF 


Now the routine is started. First one number is placed on the stack, 
for the hi-byte of address $2000. The program counter (this register 
has the pointer, and the next byte of the word) places the next word 
on the stack, first the hi-byte then the low byte. This results in the 
following picture: 


SOLEE Stack Pointer 


SO1FF 
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Then the routine fills the next three memory registers and the stack 
looks like this: 


SO1EB 7 Stack Pointer 





SOLFF 


At address $FA1F one byte of the stack is pointed to. But which one? 
Let's calculate it. The stack pointer (and therefore the X-register) 
contain the value $EB. When you add $0104 you get $01EF. The 
low-byte of the return address is raised by one. The BRANCH 
command checks if the low-byte is zero. In this case, the byte at 
address $0105 + $EB=$01F0, (which is the high-byte of the return 
address) is raised by one. The following four commands set the 
vector $CE / $CF to the first byte of the string to print. 


Now a character is read, checked for zero and printed out if it is not a 
zero. With the following BRANCH command all characters are 
printed. The register-contents are carried back when the loop is 
finished. The result is depicted on the next page: 
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SO1LEB Stack Pointer 


SO1FF 





Finally the processor reaches the RTS command and gets the return 
address from the stack. This address is incremented with every 
character read so that now it points to the last byte of the string, the 
end mark zero. Now the processor increments the program-counter 
and continues on. 


The programmers had some good ideas, as you can see. The routine 
has important advantages. It doesn't require you to load the registers 
with pointers to the desired string, as is normal. This makes the 
program shorter,faster and requires less memory. Increasing the 
speed and reducing the memory requirements is always the goal of a 
goo systems programmer. 


Those were the routines of the Kernal. We continue with the next section. 
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11.2.2. VECTOR-LOAD-TABLE 


There is a table from $42CE-$4309 in the BASIC-interpreter with which 
you can easily get memory-locations, defined by vectors. You use these 
routines as follows: You enter the desired address into the vector and then 
call the routine belonging to the vector. But this index has some 
disadvantages: 


1. You cannot use every vector, those you can use are 
listed in the index below. 

2. Youcan not get a byte from any bank. 

3. Itis not always returned to the original bank. 


Look at the index below to see if you can get a byte from a certain bank and 
return to the same bank! If not you must use the kernal-routine INDFET 


($FF74). 


Address __‘ Vector Byte-of After the return 

$42CE $50/$5 1 Bank 1 Bank 14 (RAM-Bank 1) 
$42D3 $3F/$40 Bank 1 Bank 14 (RAM-Bank1) 
$42D8 $52/$53 Bank 1 Bank 14 (RAM-Bank 1) 
$42DD $5C/$5D Bank 0 Bank 14 

$42E2 $5C/$5D Bank 1 Bank 14 (RAM-Bank 1) 
$42E7 $66/$67 Bank 1 Bank 14 (RAM-Bank 1) 
$42EC $61/$62 Bank 0 Bank 14 

$42F1 $70/$71 Bank 0 Bank 14 

$42F6 $70/$7 1 Bank 1 Bank 14 (RAM-Bank 1) 
$42FB $50/$5 1 Bank 1 Bank 14 (RAM-Bank 1) 
$4300 $61/$62 Bank 1 Bank 14 (RAM-Bank 1) 
$4305 $24/$25 Bank 0 Bank 14 


“Bank 14 (RAM-bank 1)" means: The memory shows the configuration as 
bank 14 after the switch is over. But RAM-bank 1 is turned on instead of 


278 


Abacus Software Tricks and Tips for the C-128 


RAM-bank 0. These routines switch RAM and ROM only; the contents of 
the RAM-bank are never changed. 


11.2.3 KERNAL CALLS 


This index is found in the BASIC-interpreter also. Some kernal routines are 
called here, but Bank 15 is turned on first (the one exception is $928D; it 
turns on Bank 14). 


Address Kernal-Routine 

$9251 Get status ($FFB7) 

$9257 Set ($FFBA) 

$925D Set filename parameter ($FFBD) 
$9263 BASIN ( $FFCF) 

$9269 BSOUT ($FFD2) 

$926F CLRCH ($FFCC) 

$9275 CLOSE ($FFC3) 

$927B CLALL ($FFE7) 

$9281 PRIMM ($FFE7) 

$9287 SETBNK ($FF68) 

$928D set/get (SFFFO) 

$9293 Requests stop-key ($FFE1) 
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11.3. FREE MEMORY 


When using machine language programs you have to store them so they are 
not destroyed by BASIC or the operating system. The BASIC-RAM can be 
used only if you don't want to enter a BASIC program in the memory (or 
you set the start-of-BASIC higher, or the end-of-BASIC lower). It is 
important to know which addresses you can use in zero page. Some 
addressing modes are only available with pointers in the zero page. These 
free areas will be shown here. Let's first talk about the zero page. 


11.3.1 FREE ZERO PAGE MEMORY 


The addresses $FA-$FE in the zero page are always available, as well as the 
addresses $4E/$4F. These latter two addresses are used only by the 
boot-call routine (see chapter 10.1). 


These are all the free addresses in the zero page. But six addresses are better 
than none. Other pages used by the operating-system also have free 
addresses. But using them really makes no sense because you also can use 
every other address in the memory. . 
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11.3.2 USABLE MEMORY FOR MACHINE LANGUAGE 


The C-64 often used two memory locations: the cassette buffer for short 
programs and the area $COO0-$CFFF. A machine language program was 
usually not placed at the end-of-BASIC or even at the start of BASIC. The 
C-128 has more possibilities. First there is the cassette buffer, from 
$0B00-$0BFF. Directly behind the tape buffer are the two buffers for the 
RS232 interface: 


1. $0C00 - $O0CFF = RS232 input buffer 
2. $0D00 - $ODFF = RS232 output buffer 


This area is used by very few C-128 users. It offers 768 bytes of storage 
for machine language programs ($0B00 - $ODFF). | 


But that's not all. Under normal circumstances the area from $1300 to 
$1BFF is available. This is nine pages or 2304 bytes of RAM! This area 
was originally meant for ROM-cartridges. 


There is another possibility: put your programs in the RAM-bank 1. This is 
meant for variables only. You no doubt realize that 64K for variables is a 
little much; you can use some of this for machine language programs. 


The next chapter will show you how to make use of this memory. The 
C-128 offers many possibilities to arrange your programs in the memory. It 
is also useful to know that you can do graphics without using your RAM, 
because the VDC has its own 16K of RAM-memory. 
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CHANGING THE OPERATING SYSTEM 


Because the C-128 is also a C-64, there are routines to switch it into the 
C-64 mode. BASIC 7.0 has the command GO 64. The new kernal jump 
table has a routine called "C64 MODE". Let's have a closer look at this 
routine. 


E24B LDA #SE3 
E24D STA $01 
E24F LDA #$2F 
E251 STA $00 
E253 LDX #$08 
E255 LDA S$E262,X 


E268 JMP (SFFFC) 


The first four commands switch the processor-port. The next five 
commands are a loop. First the addresses $E263 - $E26A to $0002 - $0009 
are copied. The command in address $E25D changes the clock speed to 1 
MHz. Therefore zero is stored in register 48 of the new VIC (the X-register 
was Set to zero by the loop before). Row by row, the commands copied by 
the loop are executed. The switching is now made with the first two 
commands. The memory-location $D505 belongs to the MMU and has the 
following significance. 
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Bit-number : Function.atQ.:. Functionatl. 


0 Z-80_ : - 6502 on 
1&2 : not used now -- 

3 : FSDIR control bit (for disk) 
4 C-64 : C-128 

5 C-64 = : C-128_ 

6 C-128 > C-64 — 

7 40-column : 80-column 


Bits 3 and 4 are read only. The mode is not changed by writing to these 
bits. These bits represent only the polarity of two pins at the expansion port: 


Bit 4: GAME 
BitS5: EXROM 


These pins are checked every reset. If one of them returns a logic zero, then 
the C-64 mode is activated. Therefore the C-64 mode is activated 
immediately if the C-64 cartridges are connected. You also can build a 
special push button to activate the C-64 mode when desired. 


Bit 7 is also read only. This bit gives you the status of the 
<40/80-DISPLAY> key: When: this key is depressed, this bit will be 1. 
This bit does not show you the actual mode; it is not altered if you change 
the mode with <ESC+X>. The most important bit is bit 6. The C-128 goes 
into the C-64 mode if this bit is set (1). Now we can understand the two 
commands in the C-64 mode routine. The hexadecimal value $F7 is binary 
11110111. Bit 6 is set. 


The last command finally does the reset. After the switching, before the 
reset, all ROMs of the C-128 are turned off and those of the C-64 are turned 
on. If the last three commands were not in RAM Bank 0, but in either ROM 
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or RAM Bank 1, the computer would lock-up. Try it, jump to the routine at 
$E263. The commands are in the RAM and the processor (now a 6510) 
continues at address $0007 and does a reset (the program counter stayed as 
it was, of course). | 


We want to make sure that the RAM Bank 0 is really used by both 
processors. Let's enter the following: 


POKE 8192 , 170 : POKE 8193 , 85 
GO 64 {and then Y for Yes, of course} 
PRINT PEEK (8192) ; PEEK (8193) 


You get back the values entered on the screen! If the memory is not erased, 
then you should be able to transfer complete programs to the C-64! Indeed 
this works. Try entering a small program,.and changing the mode with the 
command GO 64. Now enter the following POKE's: 


POKE 43, 1: POKE 44, 28 
Your program appears back on the screen. You can even execute it. 
However, commands that the C-64 cannot execute are not allowed in these 
programs. | 
It is even possible to continue a program started in the C-128 mode in the 
C-64 mode without a break. It's necessary to do the largest part of the 
reset-routine first. Otherwise a lot would go wrong: the IRQ-Vector is not 


defined, the screens would not be set to normal values, etc... 


An example: 
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2000 AS F7 LDA #SF7 ; Switch 

2002 8D 05 D5 STA $D505 ; to 64-mode 

2005 A2 FF LDX #SFF ; Reset-routine 

2007 78 SEI ; Up to jump 

2008 9A TXS ; To BASIC-cold start 
2009 D8 CLD ; and test at ROM in 


200A 8E 16 DO STX $D016 
200D 20 A3 FD JSR SFDA3 
2010 20 50 FD JSR SFD50 
2013 20 15 FD JSR SFD15 
2016 20 5B FF JSR SFF5B 
2019 58 CLI 

201A EE 20 DO INC $D020 ; Raise bkgnd color 
201d 4C 1A 20 JMP $1A20 ; once again 


$8000 


Now call the routine with the command SYS DEC ("2000"). After a 
moment you get a colorful screen--in the C-64 mode. 


None of this is easy with BASIC programs. Try it once! 
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THE C-64 MODE ON THE COMMODORE 128 


One real advantage of the C-128 is its compatibility with the C-64. When 
you switch to the C-64-mode, you're able to use any and all software 
available for the C-64. 


The Commodore people had to take care that all C-64 programs could really 
be run on the C-128 in the C-64-mode. Therefore they switched the 
complete system configuration of the C-128 to the C-64. The C-64-mode 
offers you only the normal BASIC V2.0., thus eliminating the bank 
switching and the Z-80 processor features. But some features of the C-128 
can still be used in C-64 mode. 


13.1 HIGH-SPEED ON THE C-64 

The C-128 has a video controller, VIC 8564, for the 40-column screen. The 
Commodore 64 had a VIC 6564. The new VIC is upward compatible to the 
C-64's VIC 6564. This means it accomplishes the same tasks as the old 
6564. There are two new registers added and these registers can also be 
modified in the C-64 mode! Register 48 plays a special role. 


13.1.1 Register 48: Processor-clock 


As with the C-64, the 128's clock controls the entire computer. With 
register 48 you can double the speed of the C-128 from 1 MHz to 2 MHz. 
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The great thing is that you can double the speed in C-64 mode as well. 


This means that all of your "old" C-64 programs can run twice as fast. It 
also speeds up time consuming routines like the garbage collection. But 
there is one catch: The VIC uses clock gaps in the system to get a character 
out of the video RAM to refresh the screen. With the doubled clock speed 
these gaps are only half size, too short a time for the VIC to refresh the 
screen. You'll get a lot of strange things on the screen, instead of the normal 
display. Therefore, you should use the double clock only if the screen 
content does not matter to you. The routine is done like this: 


POKE 53296,1 (2 MHz, fast) 
POKE 53296,0 (1 MHz, normal) 


To see what this looks like, enter the following program: 


10 TIS="000000" 
20 - 

30 FOR X=1 TO 10000 
40 NEXT X 

50 : 

60 PRINT TIS 


This program needs 14 seconds to complete the loop. It works faster with 
the following lines added: 


20 POKE 53296, 1:  #£REM FAST 
50 POKE 53296 , 0 : REM NORMAL 


The same loop now takes only 7 seconds! 
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13.2 80-COLUMN CONTROLLER ACCESS 


Yes, you now can access the 80-column controller in the C-64 mode. 
Finally, a full 80 characters per line. The operating system of the C-64 is 
not prepared for this controller, but it should not be a problem to copy these 
routines out of the C-128. 


Any examples of this would be beyond the scope of this book. But here are 
a few suggestions. How about a graphic extension to get access to the 
80-character screen in the '64 mode? Or an operating system expansion (in 
the IRQ) that will be able to write on the 80-character-screen? 
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13.3 NUMERIC KEYPAD ON THE C-.64 

This is more of a suggestion than a tip. We'll activate the numeric keypad 
with a single POKE command in the C-64 mode. Unfortunately, you'll see 
that the characters don't fit the keys. We didn't have enough time to figure 


this out before press time. Maybe you can activate the numeric keypad 
completely! : a 


Here's the POKE: 
POKE 53295,248 
The memory location 53295 corresponds to register 47 of the new VIC 


8564--one of the new registers. Here you enter the same value as in the 
C-128 mode. 
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TOKEN TABLE 


BASIC commands are not stored as a character sequence in the 
BASIC-RAM, but turned into TOKENSs. A special routine compares the 
entered BASIC line with commands stored in the BASIC-interpreter. If the 
command is found, the BASIC-interpreter gives a special character 
sequence instead. The bytes for RUN--82, 85, and 78--are transferred to 
the byte 138 ($8A). 


Try entering NEW and then the line 10 RUN. Now enter the monitor and 
type in M1COO. You get the beginning section of the BASIC-RAM. But 
where is the RUN? If you look closely you'll find the value $8A in the sixth 
position, which is the token for RUN. 


Tokens save a lot of memory for BASIC programs. Take the command for 
DIRECTORY. Stored character by character it would use 9 bytes. Changed 
into a token it only uses one. 


It follows that tokens also make programs run faster. There is only one byte 
to compare instead of 9. The transfer does not waste any time, because the 
computer is in input waiting loops for most of the time you're entering 
BASIC program text. 


The tokens start at $80 (128); this lets the computer quickly check if the 


characters read are BASIC commands or simply text characters. But this 
layout has one disadvantage--only 128 BASIC commands are available. 
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Many TOKENs not used on the C-64; the C-128 uses them all. But this still 
was not enough for the new set of BASIC 7.0. commands. The ,128's 
programmers had a simple solution for using some TOKENS twice. They 
gave these TOKENS a second byte. The command BANK has the tokens 
$FE and $02 now. With this method you can store a lot more commands. 


Now the token table: 


BASIC-Command Value (hex.) | Value (dec.) 


END $80 128 
FOR $81 129 
NEXT $82 130 
DATA $83 131 
INPUT# $84 132 
INPUT $85 133 
DIM $86 134 
READ $87 135 
LET $88 136 
GOTO $89 137 
RUN S8A 138 
IF S8B 139 
RESTORE $8C 140 
GOSUB $8D 141 
RETURN S8E 142 
REM S8F 143 
STOP $90 144 
ON $91 145 
WAIT $92 146 
LOAD $93 147 
SAVE $94 148 
VERIFY $95 149 
DEF $96 150 
POKE $97 151 
PRINT# $98 152 
PRINT $99 153 
CONT SOA 154 
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BASIC-Command Value (hex.) | Value (dec.) 


LEN $C3 195 
STRS SC4 196 
VAL SC5 197 
ASC SC6 198 
CHRS SC7 199 
LEFTS $Cc8 200 
RIGHTS $Cc9 201 
MIDS SCA 202 
GO SCB 203 
RGR SCC 204 
RCLR SCD 205 
Two-byte token SCE 

JOY SCF 207 
RDOT $DO 208 
DEC SD1 209 
HEXS SD2 210 
ERRS $D3 211 
INSTR SD4 212 
ELSE SD5 213 
RESUME SD6 214 
TRAP SD7 215 
TRON $D8 216 
TROFF SD9 217 
SOUND SDA 218 
VOL SDB 219 
AUTO SDC 220 
PUDEF SDD 221 
GRAPHIC SDE 222 
PAINT SDF 223 
CHAR SEO 224 
BOX SE1 225 
CIRCLE SE2 226 
GSHAPE SE3 227 
SSHAPE SE4 228 
DRAW SE5 229 
LOCATE SE6 230 
COLOR SE7 231 
SCNCLR SE8 232 
SCALE SE9 233 
HELP SEA 234 
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BASIC-Command Value (hex.) Value (dec.) 


DO SEB 235 
LOOP SEC 236 
EXIT SED 237 
DIRECTORY SEE 238 
DSAVE SEF 239 
DLOAD SFO 240 
HEADER SF1 241 
SCRATCH SF2 242 
COLLECT SF3 243 
COPY SF4 244 
RENAME SF5 245 
BACKUP SF6 246 
DELETE SF7 247 
RENUMBER SF8 248 
KEY SF9 249 
MONITOR SFA 250 
USING SFB 251 
UNTIL SFC 252 
WHILE SFD 253 
Two-byte token SFE 
™T™ (Pi) SFF 255 


Next is the index for double byte TOKENs. They have two preceding 
values: $CE and $FE. Index for commands with $CE as the first TOKEN: 


BASIC-Command First byte Value (hex.) | Value (dec.) 


POT SCE $02 2 
BUMP SCE $03 3 
PEN SCE $04 4 
RSPPOS SCE $05 5 
RSPRITE SCE $06 6 
RSPCOLOR SCE $07 7 
XOR SCE $08 8 
RWINDOW SCE $09 9 
POINTER SCE SOA 10 


301 





Abacus Software Tricks and Tips for the C-128 
rere 


Index for commands with $FE as the first TOKEN: 


BANK SFE $02 2 
FILTER SFE $03 3 
PLAY SFE $04 4 
TEMPO SFE $05 5 
MOVSPR SFE $06 6 
SPRITE SFE $07 7 
SPRCOLOR SFE $08 8 
RREG SFE $09 9 
ENVELOPE SFE SOA 10 
SLEEP SFE SOB 11 
CATALOG SFE $0C 12. 
DOPEN SFE SOD 13 
APPEND SFE SOE 14 
DCLOSE SFE SOF 15 
BSAVE SFE $10 16 
BLOAD SFE $11 17 
RECORD SFE $12 18 
CONCAT SFE $13 19 
DVERIFY SFE $14 20 
DCLEAR SFE $15 21 
SPRSAV SFE $16 22 
COLLISION SFE $17 23 
BEGIN SFE $18 24 
BEND SFE $19 25 
WINDOW SFE S1A 26 
BOOT SFE $1B 27 
WIDTH SFE $1C 28 
SPRDEF SFE  $1D 29 
QUIT SFE S$1E 30 
STASH SFE S1F 31 
FETCH SFE $21 33 
SWAP SFE $23 35 
OFF SFE $24 — 36 
FAST SFE $25 37 
SLOW SFE $26 38 
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Optional Diskette 


i C128 Tricks & Tips - 
| Optional diskette | 
i 





For your convenience, the program listings contained in this book are 
available on a 1541 formatted floppy disk. You should order the diskette if 
you want to use the programs, but don't want to type them in from the 
listings in the book. 


All programs on the diskette have been fully tested. You can change the 
programs for your particular needs. The diskette is available for $14.95 + 
$2.00 ($5.00 foreign) for postage and handling. 


When ordering, please give your name and shipping address. Enclose a 
check, money order or credit card information. Mail your order to: 


Abacus Software 
P.O. Box 7211 
Grand Rapids, MI 49510 


Or for fast service, call 616/241-5510. 
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An essential guide to using CP/M on 
your 128, simple explanations of 
operating system and its 
usage, CP/M utility programs, sub- 
mit files, and other subjects. $19.95 
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A guide for novice and advanced 
users. Sequential and relative files, 
direct access commands, directory 
usage, important DOS routines, 
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Abacus Software 


This book Is chock full of information 
which no '128 user should be 
without. It covers memory usage, 
hires graphics in 80 columns, win- 
dowing, memory locations. $19.95 
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ANATOMY OF C-64 Insider's guide to the 
‘64 internals. Graphics, sound, VO, kernal, 
memory maps, more. Complete commented 


handbook on floppy explains all. Many 
examples and utilities. Fully commented 
1541 ROM listings. 320pp $19.95 


MACHINE LANGUAGE C-64 Learn 
6510 code write fast programs. Many sam- 
ples and listings for complete assembler, 
monitor, & simulator. 200pp $14.95 


GRAPHICS BOOK C-64 - best reference 
covers basic and advanced graphics. 
Sprites, animation, Hires, Multicolor, 
lightpen, 30-graphics, IRQ, CAD, pro- 
Jections, curves, more. 350pp $19.95 


Call now for the name of your neares 
software and books are available - as 
orders add $8.00 per book. Dealer inquires welcome 


Abacus 


bE OMIMODORE 
Isat. 


TRICKS & TIPS FOR C-64 Collection of 
easy-to-use techniques: advanced graphics, 
improved data input, enhanced BASIC, 


chemistry, physics, biology, astronomy, 
ANATOMY OF 1541 DRIVE Best 154; REPAIR & MAINTENANCE CASSETTE BOOK C-64/VIC-20 PEEKS & POKES FOR THE C-64 


Handbook describes the disk drive hard- 
ware. Includes schematics and techniques 
to keep 1541 running. 200pp $19.95 


ADVANCED MACHINE LANGUAGE 
Not covered elsewhere: - video controller, 
interrupts, timers, clocks, VO, rea! time, 
extended BASIC, more. 210pp $14.95 


PRINTER BOOK C-64/VIC-20 Under- 
stand Commodore, Epson-compatie print- 
ers and 1520 plotter. Packed: utilities; gra- 
phics dump; 3D-plot; commented MPS&01 
ROM listings, more. 330pp $19.95 





Li£555499944 


SHEE 


COMMODORE 





SCIENCE/ENGINEERING ON C-64 In 
depth intro to computers in science. Topics: 


Comprehensive guide; many sample 
programs. High speed operating system 
fast file loading and saving. 225pp $14.95 


IDEAS FOR USE ON C-64 Themes: 
auto expenses, calculator, recipe file, stock 
lists, diet planner, window advertising, 
others. Includes listings. 200pp $12.95 


COMPILER BOOK C-64/C-126 All you 
need to know about compilers: how they 
work; designing and writing your own; 
generating machine code. With working 
example compiler. 300pp $19.95 


t dealer. To order by credit card call 
k for free catalog. Add $4.00 for shipping per order. Foreign 
- 1200+ dealers nationwide. 
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Adventure Gamewriter's Handbook 
Step-by-step guide to designing and writing 
your own adventure games. With automated 


Includes in-depth explanations of PEEK, 
POKE, USR, and other BASIC commands. 
Learn the “inside” tricks to get the most out 
of your '64. 200pp $14.95 


Optional Diskettes for books 

For your convenience, the programs 
contained In each of our books are avail- 
able on diskette to save you time entering 
them from your keyboard. Specify name of 
book when ordering. $14.95 each 


616/241-5510. Other 
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P.O. Box 7211 Grand Rapids, MI 49510 Telex 709-10 Phone 616/241-5510 
Call now for the name of your nearest dealer. To order by credit card, MC, AMEX or 


VISA, call 616/241-5510. Other software and books are available - Call and ask for 


your free catalog. Add $4.00 for shipping per order. Foreign orders add $12.00 per item. 
Dealer inquires welcome - 1200+ dealers nationwide. 
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ADA TRAINING COURSE 


Teaches you the language of 
the future. Comprehensive 
subset of language. Includes: 
editor; syntax checker, compiler; 
assembler; disassembler, hand- 
book. $39.95 
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ASSEMBLER/MONITOR 





Macro assembler and extended LDA jop DEC 
monitor. Supports all standard INX INY yy pNOF 
functions plus floating point = po BRKIMP ing 
constants. Monitor supports a a STX 
bank switching, quick trace, SEC PLP SED 
single step, more. $39.95 

BASIC COMPILER 
Compiles complete BASIC 


language into either fast 6510 
machine language and/or com- 
pact speedcode. Supports over- 
lays and many extended BASIC 








commands. C-64 $39.95 
C-128 $59.95. 
SUPER PASCAL 


Full Pascal supports graphics, 
sprites, file management, more. 
Supports pointers, dynamic 
memory management, machine 
language. Compiles to fast 6510 
machine code. C-64 $59.95 

C-128 $59.95 


TRANS COO ROS: 





FORTH LANGUAGE 
Based on Forth 79 (+ parts of 


83). Supports hires graphics Ei 


and sound synthesizer. Full 
screen editor, programming 
tools, assembler, samples, 
handbook. 25 
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ANATOMY OF C-64 Insider's guide to the '64 
internals. Graphics, sound, I/O, kernal, memory 
maps, and much more. Complete commented 
ROM listings. 300pp $19.95 


ANATOMY OF 1541 Fist handbook 
on this drive, {ak with many 
examples prog ~ Fully com- 
mented 1541 ROG . S00+pp $19.95 


MACHINE LANGUAGE FOR C-64 Learn 
6510 code & write fast programs. Many samples 
and listings for complete assembler, monitor 
and simulator, $14.95 


GRAPHICS BOOK FOR C-64 Best reference, 
covers basic and advanced graphics. Sprites, 
Hires, Multicolor, 3D-graphics, IRQ, CAD, 
projections, curves, more. 350pp $19.95 


TRICKS & TIPS FOR C-64 Collection of 
easy-to-use techniques: advanced graphics, 
improved data input, enhanced BASIC, CP/M, 
data handling and more. 275pp $19.95 





Productivity Tools 


TECHNICAL ANALYSIS SYSTEM 

A sophisticated charting and technical 
analysis system for serious investors. By 
charting and analyzing the past history of a 
stock, TAS can help pinpoint trends & 
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1541 REPAIR & MAINTENANCE Handbook 
on the drive's hardware. Includes schematics & 
techniques to keep 1541 running. Align drive w/ 
& w/o scope. Large handbook size. $19.95 


ADVANCED MACHINE LANGUAGE Sub- 
jects not covered elsewhere: video controller, 
interrupts, timers, VO, extensions to BASIC. Tips 
for the serious programmer. 210pp $14.95 


PRINTER BOOK C-64/VIC-20 Understand 
Commodore, Epson compatible printers & 1520 
plotter. Utilities, screen dump, 30-plot, com- 
mented MPS-801 ROM listings. 330pp $19.95 


SCIENCE/ENGINEERING ON C-64 In- 
depth introduction to computers in science. 
Some topics covered are chemistry, physics, 
astronomy, electronics & others. 350pp $19.95 


CASSETTE BOOK C-64/VIC-20 Make your 
cassette run faster than a disk drivel Cassette 
data-base, disk to tape backup, tape to disk, 
225pp $14.95 


FastTape operating system. 
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is MASTER patterns and predict a stock's future. TAS lets 
bations: Indexed filesystem, tul__|| Professional you enter trading data from the keyboard or 
screen & printer management, Pace directly from online financial services. $59.95 
programmer's aid, multi- PERSONAL PORTFOLIO MANAGER 
Precisioe math, royalty-free Complete portfolio management system for intact ad en Sr iad 
runime, more. $39.95 the individual or professional investor. Allows = a 

investors to easily manage their portfolios, |x ses s suis wie ges ane noes ire 
VIDEO BASIC obtain up-to-the minute quotes & news, and ‘ ue Ban eal ion 


Add 50+ graphic, sound and 
utility commands to your 
programs with this super 
development package. Free 
distribution of RUNTIME version 
- no royalties! $39.95 


XREF-128 & XREF-64 
BASIC cross-reference 
indispensible tool for BASIC 
programmers: Finds all refer- 
ences to variables, constants & 
line numbers. Sorts in alpha- 
betical order. C-64 $17.95 

C-128 $17.95 


















2erform selected analysis. 


A deluxe graphics design and drawing 
package. Use with or without an optional 
lightpen to create highly-detailed designs. 
With dimensioning, scaling, text, rotation, 
object libraries, hardcopy and more. 


DATAMAT 


Powerful, easy-to-use data management 
package using menu selections. Free-form 
design, 50 fields/record, 2000 records/disk. 
Sort on multiple fields in any combination. 
Complete selection and formatting for 


printing reports. $39.95 


$39.95 
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IDEAS FOR USE ON C-64 Themes: auto 
expenses, Calculator, recipe file, stock lists, diet 
planner, window advertising, others. Includes all 
program listings. 200pp $12.95 


COMPILER BOOK C-64/C-128 All you need 
to know about compilers: how they work, 
creating your own and generating the final 
machine code. 3M0pp $19.95 


commented listing of Kernal. 


DOS listings. 


Adventure Gamewriter's Handbook A 
Step-by-step guide to designing and writing your 
own adventure games. Adventure bP ill gene- 
rator & four example games. 200pp $14.95 


PEEKS & POKES FOR THE C-64 inciudes 
in-depth explanations of PEEK, POKE, USR, 
and other BASIC commands. Learn the "inside" 
tricks about your ‘64, 200pp $14.95 


sprites and more. 


programs, submit files and more. 


OPTIONAL DISKETTES FOR BOOKS For 
your convenience, the programs contained in 
each of our books are available on diskette. All 
program thoroughly tested & error-free. Specif 

title of book when ordering. $14.95 eac 





XPER 
Capture your information on XPER's 
knowledge base and let this first expert 
system for Commodore computers help you 
make important decisions. Large capacity. 
Complete with editing & reporting. $59.95 








One of the most powerful spreadsheets with 
integrated graphics for your Commodore 
computer. Includes menu or keyword select- 
ions, online help screens, field protection, 
windowing, trig functions and more. Power- 
Graph lets you create integrated graphs and 
charts from your spreadsheet data. $39.95 


QUICKCOPY V2.0 
Back up your valuable data with the fastest 
disk copier we've seen to date. Copies an 
entire disk in two and a half minutes on two 
drives or three and a half on one. $19.95 


verte Lei 











statistical functions. Accepts data from 
CalcResult and MultiPlan. C-128 has 3X a, 
resolution of the C-64 version. Outputs to 
most printers. $39.95 

C-128 $39.95 
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C-128 INTERNALS Detailed guide presents 
the 128's operating system, explains the 
graphics chips, Memory Management Unit, and 
500+pp $19.95 


1571 INTERNALS Insiders’ guide for novice 
and advanced users. Covers sequential & 
relative files, and direct access commands. 
Describes important DOS routines. Commented 


500+pp $19.95 


C-128 TRICKS & TIPS Chock full of info for 
everyone. Covers 80 column hi-res graphics, 
windowing, memory layout, Kernal routines, 
300 pp $19.95 


CP/M ON THE C-128 Essential guide to using 
CP/M on your 128. Simple explanations of the 
operating system, memory usage, — ‘oak 


COMPUTER AIDED DESIGN on your C-128 
or 64, Create a CAD system using programs 
provided. Covers 3D objects & rotation, 
MACROS, hatching, zooming, mirroring, line 
widths, dashed lines, more.300 pages $19.95 
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For school or software development, chopse SUPER C. 
SUPER C's powerful screen editor is full-functioned 
with horizontal and vertical scrolling, copy and search/ 
replace for easy editing. Source files may be up to 41K. 


The SUPER C compiler is fast and creates link files. Up 
to seven separate modules may be linked into a 
ready-to-run object program. To maintain C's portability, 
SUPER C supports the Kernighan & Ritchie standard 
(without bit fields), making it very complete. SUPER C 
also includes a complete 1/O library. 


et features of the SUPER C package: 
convenient hexadecimal and octal input. 
error file listed to diskette 
supports conditional compiling 
complete strings and arrays 
full mathematical functions 


C-64 $79.95 
wx, ©-128 $79.95 
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P.O Box 7211 Grand Rapids, Michigan 49510 


For Postage and handling include $4.00 per order. Foreign orders include 
$10.00 per item. Money order and checks in U.S. Dollars only. MasterCard, 
VISA ae American Express accected. Michigan residents please include 
4% sales tax. 


For fast service call (616) 241-5510 Telex 709-101 


For free catalog, please return this coupon or a copy to 
Abacus Software, P.O. Box 7211, Grand Rapids, Ml 49510 
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COMMODORE 
Practical and easy-to-use 
techniques forall C-128 users 





Wats & Wes 


Tricks and Tips for the C-128 is a tremendous treasure trove of programming 
techniques and 'tricks' for every C-128 owner. This book not only contains plenty cf 
example programs, but also explains in a simple to understand manner the operation 
and programming of the computer. 


Contents include: 


Graphics on the C-128 Sprite handling 

Working with more than one screen Custom character sets 
Graphics with the 80 column screen Autostart 

Simulating multiple windows The 80 column controller 
Listing Converter Modified INPUT 
Software protection on the C-128 Line insertion 

Changing the keyboard Banking 

The MMU (Memory Management Unit) Kernal routines 
Important memory locations Key pad in C-64 mode 
Changing the operating system C-64 mode of the C-128 


AND MUCH MORE! 


About the authors: 

This book was written by Tobias Weltner, Ralf Hornig and Jens Trapp. They have 
been working with the C-128 for several months now. All are enthusiastic 
programmers whose experience is evident in this book. 
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